Составьте алгоритм возведения четного чилса в крадрат, а нечетного- в куб.
program zadacha;
uses crt;
var: a: integer;
begin
writeln('vvedi chislo');
readln(a);
if a mod 2 =0 then writeln(a*a);
else writeln(a*a*a);
end;
end.