СРОЧНО!СРОЧНО!СРОЧНО! дано целое число если оно отрицательное, то возвести его в квадрат; есди положительное или равное нулю, то найти его куб

СРОЧНО!СРОЧНО!СРОЧНО! дано целое число если оно отрицательное, то возвести его в квадрат; есди положительное или равное нулю, то найти его куб
Гость
Ответ(ы) на вопрос:
Гость
var a:integer; begin   write('Введите число: ');   readln(a);   if a<0 then a:=sqr(a) else a:=sqr(a)*a;   writeln(a); end.   
Не нашли ответ?
Ответить на вопрос
Похожие вопросы