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

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.