program lisamine;
var f: text;
s: string;
i, n: integer;

begin
  assign(f, 'nimed.txt');
  append(f);
  writeln('Mitu nime soovid lisada?');
  readln(n);
  for i:=1 to n do
  begin
    write(i,'. nimi:'); readln(s);
    writeln(f, s);
  end;
  close(f);
end.