Напишите программу, которая по требованию будет распечатывать любой из столбиков таблицы умножения — Pascal(Паскаль)

program D;
var
i,j,n :integer;
begin
for i:=1 to 9 do
begin
for j:=1 to 9 do
write(i*j:4);
writeln;
end;
writeln;
writeln('Vvedite N');
readln(n);
for i:=1 to 9 do
writeln(n,' * ',i,' = ',n*i);
end.