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

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