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.
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.