"вычисление среднеарифметического последовательно вводимых чисел" остановить обработку при"…вводе третьего отрицательного значения, которое рассматривать как признака конца, а не число" тип обраб. данных"веществ." написать программу в паскале. 79

Var a, sa: real; i, k: integer; Begin k:=0; sa:=0; i:=0; While k<3 do begin Read (a); If a<0 then k:=k+1; If k<3 then begin sa:=sa+a; i:=i+1; end end; sa:=sa/i; writeln (sa) end.