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

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