Напишите программу для Паскаля. Возвести чётное число в квадрат, а нечётное в куб.

Question

Напишите программу для Паскаля.
Возвести чётное число в квадрат, а нечётное в куб.

Answer 1

Var
x,rez:integer;
begin
readln(x);
if x mod 2 = 0 then
rez:=x*x
else
rez:=x*x*x;
writeln (x);
end.