Помогите составить программу.определить является ли введенное вами целое число четным,для четного извлечь квадратный корень ,для нечетного возвести в куб.

Program z13;
var a:integer;
begin
writeln(vvedite dannoe cislo=);
readln(a);
if a  mod 2=0 then writeln(sqrt(a))
else writeln(sqr(a)*a);
readln;
end.