Вывести в виду столбцов и строк таблицу умножения в !

Var i,k:integer;
begin
for i:=1 to 9 do
begin
for k:=1 to 9 do
write(i*k:4);
writeln;
end;
end.