Вывести на экран ряд чисел 1/3, 3/6, 5/ чисел)

Var i, j, k: integer;
begin
     j := 1;
     k := 3;
     while (i < 12) do
     begin
          writeln(j, '/', k, '=', j/k:1:3);
          j := j + 2;
          k := k + 3;
          inc(i);
     end;
end.