Pascal ABC: Найти среднее арифметическое цифр введенного 3-значного числа.

program zadanie;label 1;var a,i,r,nb:integer; sr: real;begin1: writeln('Введите трехзначное число a');read(a);r:=0;nb:=0;while a>0 dobegini:=a mod 10;r:=r+i;nb:=nb+1;a:=a div 10;end;if nb=3 thenbeginsr:=r/nb;writeln('сумма цифр = ',r);writeln('среднее арифметическое = ',sr);endelse goto 1;end.