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

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