Составьте программу, по которой на экран будет выведена вся таблица умножения

Program table;
var
i, j: integer;
begin
for i:=1 to 10 do
begin
for j:=1 to 10 do
writeln(j, * ,i, = ,i*j);
writeln;
end;
readln
end.

В программке используются два цикла с параметром, один снутри иного. внутренний цикл выводит все творенья на одно и то же число, наружный перебегает к следующей группе творений. Таблица выводится в один столбик.