Написать программу, которая запрашивает целое число и выводит на экран таблицу умножения на это число от 1 до 10. pascal abc

Program umn;

var
n, i: Integer;

begin
Write('Введите число: ');
readln(n);
for i := 1 to 10 do
Write(n, '*', i, '=', n * i, #10);
end.