Вывести на экран таблицу умножения от 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.