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

Program zadanie;

label 1;

var a, i, r, nb:integer; sr: real;

begin

1: writeln ('Введите трехзначное число a') ;

read (a) ;

r:=0;

nb:=0;

while a>0 do

begin

i:=a mod 10;

r:=r+i;

nb:=nb+1;

a:=a div 10;

end;

if nb=3 then

begin

sr:=r/nb;

writeln ('сумма цифр = ', r) ;

writeln ('среднее арифметическое = ', sr) ;

end

else goto 1;

end.