Вычислить сумму, произведение и среднее арифметическое последовательности чисел (цикл while)

var
a:array[1..100]of integer;
sr:real;
pro,summ,i,n:integer;
begin
i:=1;
pro:=1;
writeln('Êîë-âî öûôð 1<=x<=100');
readln(n);
while i<=n do
begin
read(a[i]);
if a[i]mod 10 =0 then
begin
summ:=summ+a[i];
pro:=pro*a[i];
sr:=sr+1;
end;
inc(i);
end;
writeln('ñóììà = ',summ);
writeln('Ïðîèçâ. = ',pro);
writeln('Ñðåäíåå = ',summ/sr:2:2);
end.

writeln('сумма = ',summ);
writeln('Произв. = ',pro);
writeln('Среднее = ',summ/sr:2:2);
readln;
end.

uses crt;
var a,s,p,k:integer;
begin
clrscr;
writeln('Введите числа, окончание ввода ноль.');
a:=1; {инициализируем переменную, только не нулем}
s:=0;p:=1;k:=0;{начальные значения суммы, произведения и количества}
while a<>0 do{пока а не ноль}
 begin
  write('a=');
  readln(a);
  if a<>0 then{если не ноль, все считаем}
   begin
    s:=s+a;
    p:=p*a;
    k:=k+1;
   end;
 end;
writeln('Сумма=',s);
writeln('Произведение=',p);
write('Среднее арифметическое=',s/k:0:3);
readln
end.