Program laba;
var f1: file of integer;
a,k:integer;
BEGIN
assign (f1, 'f1. dat');
rewrite(f1);
write('a-?');
read(a);
while a<> 17 do
begin
write(f1,a);
write('a-?');
readln(a);
end;
close(f1);
reset(f1);
while not eof(f1) do
begin
read(f1,a);
if a>0 then
Inc(k);
end;
reset(f1);
while not eof(f1) do
begin
read(f1,a);
if k > 5 then
begin
if a < 0 then
begin
seek(f1,filepos(f1)-1);
write(f1,k);
end;
end;
end;
close(f1);
reset(f1);
while not eof(f1) do
begin
read(f1,a);
write(a,'|');
end;
end.