Question

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

Answer 1

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.