Question

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

Answer 1

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.

Answer 2

только j=10

Answer 3

Да, спасибо.