program kaks_faili;
var
 s: string;
 f, f2: text;
 i: integer;
begin
 assign(f, 'nimed.txt');
 reset(f);
 assign(f2, 'nimekiri.txt');
 rewrite(f2);
 i:=0;
 while not eof(f) do
 begin
  i:=i+1;
  readln(f, s);
  writeln(f2, 'Tere, ', s, '!, sa oled nr. ', i);
 end;
 close(f);
 close(f2);
end.