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

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