Составить программу на языке Паскаль если два числа положительные, то возвести оба числа в квадрат если оба числа отрицательные, то найти их модуль

var

a, b: integer;

begin

writeln ('Введите значение a.');

readln (a);

writeln ('Введите значение b.');

readln (b);

if (a > 0) and (b > 0) then writeln (a * a);

if (a > 0) and (b > 0) then writeln (b * b);

if (a < 0) and (b < 0) then writeln (abs (a));

if (a < 0) and (b < 0) then writeln (abs (b));

end.