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

2)Ввести несколько чичел

3)Вычислить среднее арифметическое этих чисел

 

var s,i,n,a:integer;

BEGIN

  read(a,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(s);

  s:=0;

 for i:= 1 to n do

 begin

   read(a);

   s:= s + a;

 end;

writeln('среднее арифметическое = ',s/n)

END.