program dat1;
uses crt;
var
	a:file of integer;
	c:integer;
begin
	clrscr;
	assign(a,'brojevi.dat');
	rewrite(a);
	while not eof do
	begin
		read(c);
		write(a,c);
	end;
	close(a);
end.