const n=1000;
var
f:text;
i,j:integer;
a:array [1..n]of  integer;
begin
assign(f,'f1.txt');
reset(f);
i:=1;
while (not(eoln(f))) do begin
read(f,a[i]);
inc(i);
inc(j);
end;
close(f);
assign(f,'f2.txt');
rewrite(f);
for i:=1 to j do
if a[i]>0 then write(f,a[i],' ');
close(f);
end.