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

program table;
Uses CRT;
var n: integer;
begin
writeln(Выход из программки - множитель 0.);
n:= 100;
while n gt; 0 do
begin
writeln(Введите множитель для таблицы умножения);
readln(n);
if n gt; 0 then
begin
for i: integer := 1 to 10 do
writeln(i : 2, *, n : 2, = , (i * n) : 2);
readln();
clrscr
end
else
writeln(Работа программки прекращена)
end
end.