Var
 x1,x2:Real;

Begin
 x1:=0;
 While ((1+1/19*x1)>=(3/4-3/19*x1)) and ((1+1/19*x1)>=(-2+4/19*x1)) do
  x1:=x1+0.01;
 writeln('x1 = ',x1:0:3);
 if (3/4-3/19*x1)>(-2+4/19*x1) then
  x2:=(3/4-3/19*x1)
 else
  x2:=(-2+4/19*x1);
 writeln('x2 = ',x2:0:3);
 writeln(' Y = ',(x1*2+x2*19):0:3);
 Readln
End.