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

program zz1;
var j,i:integer; //заводим переменные для циклов
begin
for i:=1 to 10 do //организуем 1-ый цикл, который переберет все числа от 1 до 10
begin
for j:=1 to 10 do //организуем второй цикл, который переберет все числа от 1 до 10
write(i*j:5); //умножаем 1-ое число на 2-ое и выводим ответ в формате 5 символов для каждого числа
writeln; //перебегаем на новейшую строчку
end;
end.