Write a program that, on demand, prints out any of the columns of the multiplication table.

program table;
Uses CRT;
var n: integer;
begin
writeln (‘Exit from the program – multiplier 0.’);
n: = 100;
while n> 0 do
begin
writeln (‘Enter a multiplier for the multiplication table’);
readln (n);
if n> 0 then
begin
for i: integer: = 1 to 10 do
writeln (i: 2, ‘*’, n: 2, ‘=’, (i * n): 2);
readln ();
clrscr
end
else
writeln (‘The program has terminated’)
end
end.