Составьте программу для нахождения куба числа если оно положительное

Question

Составьте программу для нахождения куба числа если оно положительное

Comments

а если нет?

Answer 1

Program z8;  Var a:integer;Begin  write('Введите число - '); readln(a);    if (a > 0) then write('Число ',a,' в кубе - ',a*a*a)              else if (a < 0) then write('Вы ввели отрицательное число')                             else write('Вы ввели 0');  End.