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.