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

Program table;vari, j: integer;beginfor i:=1 to 10 do begin for j:=1 to 10 do writeln(j,\' * \',i,\' = \',i*j); writeln; end; readlnend.В программе используются два цикла с параметром, один внутри другого. внутренний цикл выводит все произведения на одно и то же число, внешний переходит к следующей группе произведений. Таблица выводится в один столбик.