дано число x. если число отрицательное (x меньше 0) то возвести его в квадрат, иначе возвести в третью степень. результат (значение числа x) вывести на экран
Ответ:
Program X
var integer: x;
begin
writeln ('введите число х');
readln (x);
if x>0 then