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

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