program brainly;
type digits = array[0..9] of char;
var
c:char;
i,j:integer;
d:digits;
begin
d[0]:='0'; d[1]:='1';
d[2]:='2'; d[3]:='3';
d[4]:='4'; d[5]:='5';
d[6]:='6'; d[7]:='7';
d[8]:='8'; d[9]:='9';
j:=0;
repeat
readln(c);
for i:=0 to 9 do begin
if(c=d[i]) then begin
j:=j+1;
end;
end;
until c='#';
writeln(j);
end.
Rezultat:
