Паскаль: Дана последовательность целых чисел, ввод последовательности кончается 0 (до

Var
  a: integer;  //a - вводимое число
  n, s: integer;  //n- количество введенных чисел, s - сумма этих чисел

begin
  n:= 0;  //обнуляем счетчик
  s:= 0;
  a:= 1;  присваиваем значение, хорошее от нуля, чтоб цикл не закончился, не начавшись
  while a lt;gt; 0 do
  begin
    writeln('Введите целое число');
    readln(a);
    if a lt;gt; 0 then  //Чтоб при подсчете среднего арифметического не учитывался 0
    begin
      n:= n + 1;
      s:= s + a;
    end;
  end;
  writeln('Среднее арифметическое введенных чисел:  ', s / n);
end.