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

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