Question

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

Answer 1

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.