Написать программу, которая запрашивает целое число и выводит на экран таблицу умножения на это число от 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.