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.