Question

Помогите пожалуйста с программой! 68 баллов на кону!

Answer 1

//Сделал Лугачев Кирилл
//Специально для znanija.com/task/18305159

program algoritm;
var   
sum, n: integer;
begin   
write('Введите число - '); 
Read(n);   
if n mod 2 = 0 then   
sum := Sqr(n) 
else sum := n * n * n;   
writeln('n - равно: ', sum);  
end.