Напиши те программу в Паскале :
Даны x и y .Если x>y то число заменить их квадратами .В противном случае число удвоить . ОЧЕНЬ НАДО !!

var  a,b:integer;begin  readln(a,b);  if a>b then   begin    a*=a;    b*=b;  end else begin    a+=a;    b+=b;  end;end.