Программирование на паскале. честно, не понимаю как это делать, вообще паскаль не знаю, но надо сдать саше понравились олимпиады по , поэтому он решил ходить на занятия кружка. придя на первое занятие кружка, он узнал, что занятия будут проходить еженедельно в один и тот же день недели. саше составить календарь занятий до конца года – определите даты всех занятий, начиная с первого занятия и до конца года. программа получает на вход два числа, записанных в разных строках: номер месяца и номер дня месяца, когда проходит первое занятие. номер месяца может быть одним из четырёх возможных чисел – 9, 10, 11, 12. номер дня месяца – число от 1 до 30 для сентября и ноября (месяцы с номерами 9 и 11) или от 1 до 31 для октября и декабря (месяцы с номерами 10 и 12 программа должна вывести даты всех занятий кружка до конца года в хронологическом порядке, по одной дате в строке, сначала месяц, затем день месяца, через пробел. занятия проходят еженедельно, в тот же день недели, что и первое занятие. формат вывода дат такой же, как в условии. считайте, что каникулы отсутствуют, а последнее занятие может происходить в любой день декабря, в том числе и 31 числа.

Как то так, сложная попалась задача
var
day,a,mon,i,i1,max:integer;{объявляем переменные}
begin
  readln(mon,day);{вводим месяц и день}
  a:=day;
  for i:=mon to 12 do begin
    writeln;
    write(i,': ');
    case mon of{сколько дней в месяце}
      9:max:=30;
      10:max:=31;
      11:max:=30;
      12:max:=31;
    end;
   
    for i1:=a to max do begin
      if a>max then break;
      write(a,' ');
      a:=a+7;
    end;
    a:=a-max;
  end;
end.

Немного теории в приложении, чтоб не надо было обьяснять ответы

1. В зависимости от изображения чисел системы счисления делятся на:
б. Арабские и римские;

2. Двоичная система счисления имеет основание:
б. 2;

3. Для представления чисел в шестнадцатеричной системе счисления используются:
с. цифры 0-9 и буквы A-F.

4. В какой системе счисления может быть записано число 402?
с. в пятеричной
Есть цифра 4 которой нет в 4ричной и менее

5. Чему равно число DXXVI в десятичной системе счисления?
а. 526;

6. Запись вида 352:
с. Отсутствует в двоичной системе счисления;

7. Какие цифры используются в шестеричной системе счисления?
а. 0,1,2,5;
От 0 до 5

8. какое минимальное основание должна иметь система счисления, если в ней можно записать числа: 401, 122, 232, 111;
а. 5;

9. Какое число записано некорректно?
с. 1212 в двоичной;

10. система счисления-это...?
 символический метод записи чисел

11. Что такое основание системы счисления?
Некое положительное число   1 которое определяет шаг разрядности

12. Позиционной системой счисления называют...
Система счисления где позиция имеет значение

13. Какое минимальное основание может иметь система счисления, если в ней записано число 235?
6

14. Запишите число 254 с римских цифр
CCLIV

15. Чему равно число XCII в десятичной системе счисления?
92

16. Запишите значения цифр A и E в 16-ричной системе счисления:...
А=10 Е=14

17. Переведите числа в десятичную систему счисления:
а. 1011011 ( в 2-ой системой счисления) = 91
б. 3421( в 5-ой системе счисления) = 486

18. Выполните действия:
а) 11011110(в 2-ой системе счисления)
 + 11010010(в 2-ой системе счисления);
 =110110000
в) 87АС(в 16-ричной системе счисления)
 - 2D6F(в 16-ричной системе счисления);
 = 5A3D
б) 20119(в троичной системе счисления)-  1012(в троичной системе счисления); - тут опечатка
г) 1101011 ( в двоичной системе счисления) * 1101 ( в двоичной системе счисления) = 10101101111

19. Переведите число 433 (в десятичной системе счисления) в двоичную, восьмеричную, шестнадцатеричную системы счисления:
110110001_2
661_8
1B1_16

20. вычислите сумму чисел 10(в 2-ой) + 10 (в 8-ой) + 10 (в 10-ой) + 10 (в 16-ой). Представить результат в двоичной системе счисления
2 + 8 + 10 + 16 = 26_10 = 1000110_2

21. В какой системе счисления будет верным равенство 4+4= 10 ?...
8

22. В какой системе счисления: а) 144(в 10-ой) записывается как 100;
144 = 12*12 значит основание 12
б) 98( в 10-ой) записывается как 200;
98 = 2*7*7 значит 7ричная
в) 48(в 10-ой) записывается как 300.
48 = 3*4*4 значит 4ричная

Var
    N, s, i: Integer;
    s1: real;

begin
    readln(N); {общий ввод для всех задач}
    
    if N < 0 then
        writeln('Задача 1. N=', 0)
    else writeln('Задача 1. N=', N + 4);
    
    s := 0;
    for i := 1 to n do
        s := s + i;
    writeln('Задача 7. 1+2+3+…+N=', s);
    
    write('Задача 9. Последовательность от N до 1 = ');
    for i := n downto 1 do
        write(i, ' ');
    writeln();
    
    s1 := 0;
    for i := 1 to n do
        s1 := s1 + i / 10;
    writeln('Задача 12. 0,1+0,2+0,3+..+N/10=', s1);
    
    write('Задача 13. Последовательность квадратов от 1 до N = ');
    for i := 1 to n do
        write(i * i, ' ');
    writeln();
    
    write('Задача 14. Последовательность первых N нечетных чисел = ');
    for i := 1 to n do
        write(2 * i - 1, ' ');
    writeln();
    
    if N > 0 then
        writeln('Задача 20. N степень 3 = ', frac(ln(n) / ln(3)) = 0);
    
    s := 0;
    for i := 1 to n do
        if n mod i = 0 then
            s := s + i;
    writeln('Задача 24. Сумма всех натуральных делителей числа N (сключая 1 и N) = ', s);
end.