var a,b:integer;beginwriteln('Vvedite a,b?');readln(a,b);if a>b then writeln((a+b)*(a+b)) else writeln((a-b)*(a-b));end.
var a,b:integer;
begin
writeln('Vvedite a,b?');
readln(a,b);
if a>b then writeln((a+b)*(a+b)) else writeln((a-b)*(a-b));
end.