ПРОГРАММИРОВАНИЕ PascalABC Вводится число целое. Если оно отрицательное, то вывести его квадрат, если оно положительное, вывести его куб, иначе (оно равное нулю) вывести сообщение 'равно нулю'.​

var

 a: integer;

begin

 writeln('Введите целое число:');

 readln(a);

 if a < 0 then

   writeln(a, '^2 = ', sqr(a));

 if a > 0 then

   writeln(a, '^3 = ', sqr(a) * a);

 if a = 0 then

   writeln('Равно нулю.');

end.