Напишите программу на языке программирования ( или составьте алгоритм), полную таблицу умножения от 1 до 9.

Program 1;
var i,j: byte;
beginwriteln('Таблица умножения');
    for i:=1 to 9 do begin
        for j:=1 to 9 do
            write(i*j:4);
        writeln;
    end;readln;
end.