Составить программку которая печатает таблицу умножения. ПАСКАЛЬ!

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