вывести на экран таблицу умножения 10*10 чисел

только j=10

Да, спасибо.

var i, j : integer;begin    for i := 1 to 10 do begin        for j := 1 to 10 do begin            write(i * j);            if (j = 10) then writeln()            else write(' ');        end;    end;end.