var f1:text;
f2:text;
i,j,n:integer;
s:string;
ars:array of string;
begin;
assign(f1,'f1.txt');
reset(f1);
while not Eof(f1) do
begin;
read(f1,s);
end;
writeln(s);
close(f1);
for i:=1 to length(s) do
begin;
       if s[i]='-' then
       begin;
       if s[i+1]='0' then continue;
       inc(n);
       j:=i;
       setlength(ars,n+1);
          while (s[j]<>';') do  //здесь можно поменять разделителный знак
          begin;
              ars[n]+=s[j];
              inc(j);
          end;
       end;
end;
for i:=1 to n do
writeln(ars[i]);
assign(f2,'f2.txt');
rewrite(f2);
for i:=1 to n do
writeln(f2,ars[i]);
close(f2);
end.