Var
 s:string;
 f: text;
begin
  assign(f, 'nimi.tet');
  reset(f);
  readln(f, s);
  writeln('Esimene nimi on', s,' ja');
  readln(f, s);
  writeln('Teine nimi on ',s,'.');
  close(f);
end.