var
i,arv:integer;
 arvsona,lause:string;
 kokku:integer;
 c:char;
begin
writeln('Kirjutada siia lause,mis sisaldab arve');
readln(lause);
lause:=lause;
kokku:=0;
 for i:=1 to length (lause) do
if (lause[i]='1')or
   (lause[i]='2')or
   (lause[i]='3')or
   (lause[i]='4')or
   (lause[i]='5')or
   (lause[i]='6')or
   (lause[i]='7')or
   (lause[i]='8')or
   (lause[i]='9') then
begin
c:= lause[i];
case c of
'1': kokku:= kokku+1;
'2': kokku:= kokku+2;
'3': kokku:= kokku+3;
'4': kokku:= kokku+4;
'5': kokku:= kokku+5;
'6': kokku:= kokku+6;
'7': kokku:= kokku+7;
'8': kokku:= kokku+8;
'9': kokku:= kokku+9;
end;
end;
begin
writeln('Lauses on ', kokku);
end;
end.