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

Question

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

Answer 1

Var n:integer;

begin
write('Введите целое отрицательное число: '); readln(n);
if n<0 then writeln('Куб числа "',n,'" = ',n*n*n)<br>else write('Число не отрицальное');
end.