Вводиться последовательность ненулевых чисел, 0-конец послодовательности.Определить среднее значение элементов последовательности

Program Dafnochka; uses crt; var   r,sum: real;   k:integer; begin   writeln('*** alphaues is thinking... ***');   writeln('***          OK             ***');   sum:=0;   k:=0;   r:=1;   writeln('Введите ненулевое число');   writeln('(или введите 0 для конца последовательности) ');   while r<>0 do     begin       write("Ввод:") ;         readln (r);       sum:=sum+r;       k:=k+1;       end;   writeln();   writeln('Всего введено ',k-1,' чисел');   writeln('Среднее значение равно ',sum/(k-1)); end. Проверено - работает на Паскаль АВС