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

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.