Дана последовательность целых чисел, признаком конца которой служит 0. 0 не входит в последовательность. Найти среднеарифметическое элементов последовательности. Напишите программу
Program n1; var a,sum,k: integer; begin readln(a); sum:=0; k:=0; while a<>0 do begin sum:=sum+a; k:=k+1; readln(a); end; writeln(sum/k); end.