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

Question

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

Answer 1

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.