Числа вводятся с клавиатуры, пока не будет введён 0.Вычислите среднее арифметическое этих чисел.Первое же число может оказаться нулём.Выведите в этом случае соответствующее текстовое сообщение.

Program test;var x,i,S, SA:real;begini:=1;read (x);S:=x;if x<>0 then           repeat      begin      read (x);      S:=S+x;      i:=i+1      end;      until x<>0;if S=0 then write ('Первое число ноль');if S<>0 then begin             SA:=S/i;             writeln (SA)             end;end.