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

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.