Написать псевдокод (или блок схему) и код программы для решения следующей задачи: Вычислить среднее арифметическое для чисел, вводимых с клавиатуры. Результат вывести на экран

uses crt;
var a,sum,k:integer;
     sr: real;
begin
     sum:=0;
     k:=0;
     writeln('Вводите числа. 0 - конец последовательности');
     repeat
          readln(a);
          sum:=sum+a;
          inc(k);
     until a=0;
     writeln(sum/(k-1));
end.