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

Question

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

Answer 1

Ответ:

var n, a :integer;

begin

readln(n);

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

writeln (a);

end.