СРОЧНО!СРОЧНО!СРОЧНО! дано целое число если оно отрицательное, то возвести его в квадрат;...

Question

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

Answer 1

Var a:integer;
begin
  write('Введите число: ');
  readln(a);
  if a<0 then a:=sqr(a) else a:=sqr(a)*a;<br>  writeln(a);
end.