икт решите пожалуйста, все на кртинке

1)6
3)var a,b,c,x:integer;
   begin;     a:=0;   b:=0;   readln(c);   for c:=1 to c do   begin   readln(x);   a:=a+x;   b:=b+x;   end;   writeln('сумма =',a);   writeln('среднее =',b/c)   end.