Пожалуйста посчитайте пожалуйста информатику, хотя бы на 3​

var n, a :integer;

begin

readln(n);

if n mod 2 = 0 then a:=(n*n*n) else a:=n*n;

writeln (a);

end.