вывести таблицу умножения на 10(Паскаль)

var j,i:longint; begin for i:=2 to 3628800 begin for j:=2 to 3628800 do writeln(i*j:10);writeln(); end; readln; end.