1)Вычислить значение из ступени числа,не пользуясь операцией возведения в степень.Найдите произведение

program zz1;
var a, n, i, s:integer; // задаем переменные целого типа
begin
write( введите заданное число а ); // вводим заданное a
read(a);
write( введите в какую степень будем возводить ); // вводим данное n
read(n);
s:=1;
for i:=1 to n do
s:= s * a;
writeln(a, в ступени , n, равна = , s); // выводим 1-ый ответ
s:=1;
for i:=1 to n do
s:=s * i; // находим произведение естественных чисел
writeln(творение первых n естественных чисел = , s); // выводим второй ответ
write( введите сколько чисел будем вводить );
read(a);
s:=0;
for i:=1 to a do
begin
read(n);
s:=s + n;
end;
writeln(среднее арифметическое введенных чисел = , s/a); // выводим 3-ий ответ
end.