Үлгі:Уақытқа сілтеме/doc

var
   i : integer;
   f : text;
begin
   assign(f, 'year.txt');
   rewrite(f);
   for i := 1100 to 2100 do
      writeln(f, '[[',i,']]=',i,'|');
   close(f)
end.