program sisestus;
var
 s, failinimi: string;
 fail: text;
 i, n: integer;

begin
 failinimi:='katse.txt';
 n:=5;
 assign(fail, failinimi);
 rewrite(fail);
 writeln('Sisesta ',n,' rida teksti!');
 for i:=1 to n do
 begin
  readln(s);
  writeln(fail, s);
 end;
 close(fail);
end.