Напиши те программу в паскале : даны 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.