Напиши те программу в Паскале : Даны x и y .Если xgt;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.