Program One;
Var x, y, a, b: real;
Begin
Writeln ('Vvedite x, y');
Readln (x, y);
a:=2*x*y
b:=(x+y)/2
If x>y then x:=a; y:=b else x:=b; y:=a;
Writeln(x, y);
Readln;
end.




Program Two;
Var x, y, F:real;
Begin
Writeln ('Vvedite koordinaty');
Readln (x, y);
If x>=0 and y>=0 then F=1 else F=0;
Writeln (F);
Readln;
end.