program input;

var	pl : text;

procedure drukuj (var plik: text);
{ wypelnia plik kolejnymi parzystymi liczbami naturalnymi }
var i : integer;
begin 
   rewrite(plik);
   write(plik, random:10:7);
   for i := 1 to 100 do
	  write(plik,',', random:10:7);
   close(plik)
end; { drukuj }

begin
   assign(pl,'./liczby');
   drukuj(pl)
end.