program yadelalsam;
uses Crt;
var k,y: integer;
z,x,i,p:longint;
procedure SAM;
var w,v:integer;
begin
if (x<=i) and (x)=p) then
begin
z:=x div p:
x:=x-(z*p);
if z=1 then
y:=y+1;
end
end;
begin
crlScr;
y:=0;
i:=1000000001;
p:=100000000;
writeln(‘ vvedite chislo ‘);
readln(x);
for k:=1 to 9 do
begin
SAM;
p:=p div 10;
i:=I div 10;
end;
writeln(‘edenic v chisel =’,y);
readln;
end.