Question

ИНФОРМАТИКА 8 КЛАСС

Интересует вопрос 4, знания 8 класс.
(Если что, вот сама программа, чтобы вам не переписывать program 000;
var i,n:integer; a,y:real;
begin
writeln('Возведедение в степень');
writeln('Введите основания a>>');
readln (a);
write('Введите основания n>>');
readln (n);
y:=1;
for i:=1 to n do y:=y*a;
writeln('y =', y);
end.)