1) Вычислить значение из степени числа, не пользуясь операцией возведения в степень. Найдите произведение первых и натуральных чисел. 2) Ввести несколько чичел 3) Вычислить среднее арифметическое этих чисел

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); / / выводим первый ответ

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); / / выводим третий ответ

end.