program z1;
uses wincrt;
var i,a,s:integer;
f,f1:text;
begin
assign(f,'in.txt');
assign(f1,'out.txt');
reset(f);
rewrite(f1);
s:=0;
while not eof(f) do
begin
read(f,a);
s:=s+a;
end;
close(f);
writeln('s= ',s);
write(f1,s);
close(f1);
end.

program z4;
uses wincrt;
var b,a:text; x:string;
n,s1,s2,s3,s4,s5,s6,s7,s8,s9,s0,l:integer;
begin
assign(a,'in.txt');
assign(b,'out.txt');
reset(a);
read(a,x);
writeln(x);
close(a);
l:=length(x);
for n:=1 to l do
begin
if x[n]='1' then s1:=s1+1;
if x[n]='2' then s2:=s2+1;
if x[n]='3' then s3:=s3+1;
if x[n]='4' then s4:=s4+1;
if x[n]='5' then s5:=s5+1;
if x[n]='6' then s6:=s6+1;
if x[n]='7' then s7:=s7+1;
if x[n]='8' then s8:=s8+1;
if x[n]='9' then s9:=s9+1;
if x[n]='0' then s0:=s0+1;
end;
writeln(s1,' ',s2,' ',s3,' ',s4,' ',s5,' ',s6,' ',s7,' ',s8,' ',s9,' ',s0);
rewrite(b);
write(b,s1,' ',s2,' ',s3,' ',s4,' ',s5,' ',s6,' ',s7,' ',s8,' ',s9,' ',s0);
close(b);
end.

program z6;
uses wincrt;
var i,n,j,t:integer;
a:array[1..100] of integer;
f,f1:text;
begin
assign(f,'in.txt');
assign(f1,'out.txt');
reset(f);
rewrite(f1);
n:=1;
while not eof(f) do
begin
read(f,a[n]);
inc(n);
end;
close(f);
for i:=1 to n-1 do
for j:=i+1 to n do
begin
if a[i]>a[j] then
begin
t:=a[i];a[i]:=a[j];a[j]:=t;
end;
end;
for i:=1 to n do write(f1,a[i],' ');
close(f1);
end.

program z7;
uses wincrt;
var ii,i,n,j,t:integer;
p:boolean;
a:array[1..100] of integer;
f,f1:text;
begin
assign(f,'in.txt');
assign(f1,'out.txt');
reset(f);
rewrite(f1);
n:=1;
while not eof(f) do
begin
read(f,a[n]);
inc(n);
end;
close(f);
for ii:=1 to n do
begin
t:=a[ii];
for i:=2 to t do
begin
p:=true;
for j:=2 to i-1 do
if i mod j=0 then p:=false;
if p then write(f1,t);
end;end;
close(f1);
end.