program szovegfile_kezeles;
var t: text; i, szam:integer;
begin
  assign(t, 'szamok.txt');
  rewrite(t);
  for i:=1 to 10 do
    writeln(t, i);
  close(t);

  reset(t);
  while not eof(t) do begin
    readln(t, szam);
    writeln(szam);
  end;
  close(t);
  readln;
end.