Program prog;
uses crt;

var a,b,t: real;

begin
clrscr;

write(a = );
readln(a);
write(b = );
readln(b);
if (agt;b) then
   begin
   t:=a;
   a:=2*a*b;
   b:=(t+b)/2;
   end;
if (alt;b) then
   begin
   t:=b;
   b:=2*a*b;
   a:=(t+a)/2;
   end;
if(a=b) then
        writeln(Числа равны)
        else
        writeln(a = , a, , b = , b);
end.