Question

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

Answer 1

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