написать число(индекс) в кумире

// PascalABC.NET 3.2, сборка 1439 от 09.05.2017
// Внимание! Если программа не работает, обновите версию!

function ДробьНесократима(Чис,Знам:integer):boolean;
begin
  while Знам<>0 do begin Чис:=Чис mod Знам; Swap(Чис,Знам) end;
  Result:=Чис=1
end;

begin
  for var Знаменатель:=2 to 7 do
    for var Числитель:=1 to Знаменатель-1 do
      if ДробьНесократима(Числитель,Знаменатель) then
        Write(Числитель,'/',Знаменатель,' ');
  Writeln
end.

Результат
1/2 1/3 2/3 1/4 3/4 1/5 2/5 3/5 4/5 1/6 5/6 1/7 2/7 3/7 4/7 5/7 6/7

Генетическая информация определяет морфологическое строение, рост, развитие, обмен веществ, психический состав, предрасположенность к заболеваниям и генетические пороки организма. Реализация генетической информации происходит в процессе синтеза белковых молекул с трех типов РНК: информационной (иРНК) (её также называют матричной РНК, мРНК), транспортной (тРНК) и рибосомальной (рРНК). При этом генетическая информация копируется с матрицы ДНК на мРНК в ходе транскрипции, а затем мРНК используется как матрица для синтеза белков в ходе трансляции.