Написать программу, которая по требованию распечатывает любой из столбиков таблицы умножения.

program table;Uses CRT;var n: integer;beginwriteln(\'Выход из программы - множитель 0.\');n:= 100;while n > 0 dobeginwriteln(\'Введите множитель для таблицы умножения\');readln(n);if n > 0 then beginfor i: integer := 1 to 10 do writeln(i : 2, \' *\', n : 2, \' = \', (i * n) : 2);readln();clrscrendelse writeln(\'Работа программы прекращена\')endend.