вывести на экран таблицу умножения от 4 до 9, в Паскале

program gg;
var  i,k: integer;
beginfor k:=4 to 9 do begin  for i := 1 to 10 do   begin   writeln(k,' x ',i,' = ',k*i);       end;  writeln('----------');  end;end.