Напишите программку, которая для последовательности натуральных чисел обретает среднее арифметическое. Программка

// Пример программки на языке Паскаль.

var
   a, i : integer;      // объявляем переменные целочисленного типа.
   sum : real;        // объявляем переменную вещественного типа.
begin
  writeln (введите последовательность чисел, окончание ввода - число 0:); // вывод строчки.
  a := 1;                       // необходимо для исполненья цикла.
    while a lt;gt; 0 do     // начало цикла.
      begin
         readln (a);       // считываем число, введенное с клавиатуры.
            if (a = 0) then
              write (Среднее арифметическое, одинаково: , round ((sum / i), 2)); //вывод ответа на                                                                                                                      // экран.
          sum := sum + a;      // считаем сумму введенных чисел.
          i := i + 1;               // считаем количество введенных чисел.
     end;
end.