1)
var
f1, f2 : textfile;
str : string;
begin
assign (f1, 'input.txt'); reset (f1);
assign (f2, 'output.txt'); rewrite (f2);
while not eof (f1) do
readln (f1, str);
if length (str) > 5 then writeln (f2, str);
end;
close (f1);
close (f2);
end.
1)
var
f1, f2 : textfile;
str : string;
begin
assign (f1, 'input.txt'); reset (f1);
assign (f2, 'output.txt'); rewrite (f2);
while not eof (f1) do
begin
readln (f1, str);
if length (str) > 5 then writeln (f2, str);
end;
close (f1);
close (f2);
end.