Выбери действия над информацией. разгадывание ребуса занятие на велотренажере заучивание стихотворения наизусть вышивание узора на ткани

1обработка информации 2 никакое 3 сохранение информации 4 не знаю, возможно сохранение графической информации

// 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

Var
begin
readln(n);
if n=1 then begin writeln('1 месяц');writeln('кол-во дней');end;
if n=2 then begin writeln('2 месяц');writeln('кол-во дней');end;
if n=3 then begin writeln('3 месяц');writeln('кол-во дней');end;
if n=4 then begin writeln('4 месяц');writeln('кол-во дней');end;
if n=5 then begin writeln('5 месяц');writeln('кол-во дней');end;
if n=6 then begin writeln('6 месяц');writeln('кол-во дней');end;
if n=7 then begin writeln('7 месяц');writeln('кол-во дней');end;
if n=8 then begin writeln('8 месяц');writeln('кол-во дней');end;
И так до 12 раз...
Я не уверен что тебе нужен такой монстр...
В место к примеру 1 месяца пишешь январь...