program testo_generavimas;
{ 51 u‘davinys }
{ ži programa generuoja žežt…j test… }
  const MAX = 10000;
  var f: text;
      i: integer;
begin
 assign (f, 'SKOL6.DAT');
 rewrite (f);
 for i := 1 to MAX-1 do
   writeln (f, i, ' ', i+ 1, ' 1.00');
 writeln (f, MAX, ' ', '1 1.00');
 close (f);
end.