program job_3;
 var
 a,b : integer;
 begin
 writeln('введите a');
 readln(a);
 writeln('введите b');
 readln(b);
 if a>b then
 begin
b:=b+b;
a:=a*a;
writeln('a= ',a);
writeln('b= ',b);
if b<a then
begin
a:=a+a;
b:=b*b;
writeln('a= ',a);
writeln('b= ',b);
end;
end;
end.