program Zapis_souboru;

var
	buffer : integer;
	pocet, i : byte;
	soubor : file of integer;
	nazev  : string;

begin
	writeln('Zadej nazev souboru: ');
	readln(nazev);
	writeln('Kolik cisel chces zadat; ');
	readln(pocet);

	assign(soubor, nazev);
	rewrite(soubor);

	writeln('Zadavej cisla');
	for i := 1 to pocet do
	begin
		write(i,'. ');
		read(buffer);
		write(soubor, buffer);
	end;
	close(soubor);
end.