Даны 2 числа. Если они оба отрицательные, то вывести их модуль, если они оба положительные, то возвести их в квадрат.

Program pp;var a,b:integer;beginread(a,b);if (a>0) and (b>0) then begina:=sqr(a);b:=sqr(b);end;if (a<0) and (b<0) then begina:=abs(a);b:=abs(b);end;writeln(a,b);end.