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

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.