Question

дано целое число если оно положительное то возвести его в квадрат иначе возвести третьей степень

Answer 1

var x: integer;
begin
  readln(x);
  if x > 0 then x := x * x
  else x := x * x * x;
  writeln(x);
end.

Answer 2

спасибо это точно верно