Склавиатуры вводиться два числа-текущая дата, например 17 3 (17 марта) 1)вычислить сколько полных недель прошло с нового года2) определить какой это день недели (например 16 января, 16, 1 прошло 2 недели с нового года, 2 день недели) нужно​

Параметры страницы:   эта команда устанавливает параметры страницы для размещения на ней документа. диалоговое окно состоит из 4 вкладок: поля, размер бумаги, источник бумаги и макет. рассмотрим первые две. на вкладке поля устанавливаются отступы от краев бумаги до начала текста. разметка страницы:   самый удобный режим. в нем документ выглядит так, как он будет выглядеть при печати, причем, сверху и слева располагаются линейки, в которых можно устанавливать абзацные отступы. надстрочные и подстрочные символы: это символы которые можно получить  при одновременном нажатии ctrl, shift и "+" выделенные знаки становятся надстрочными, а если тут же, оставив нажатой только кнопку ctrl, нажать "=", знаки переходят в построчные.

Var a: array[1..8,1..8] of integer; {матрица} i,i1,b,sum,st: integer; {первые 2 переменные для циклов,b - для заполнения матрицы, sum - для нахождения суммы чисел} begin   for i: =1 to 8 do begin       for i1: =1 to 8 do begin           b: =b+1;           if b mod 2 = 0 then a[i,i1]: =b else a[i,i1]: =b+1;           if a[i,i1] > 60 then write(0: 3) else if a[i,i1] < 18 then write(0: 3) else write(a[i,i1]: 3);                 end;       writeln;   end;   writeln('главная диагональ');   sum: =1;   for i: =1 to 8 do begin       sum: =sum*a[i,i];       writeln(a[i,i]: i*2);   end;   writeln('сумма - ',sum);   write('введите номер столбца - ');   readln(st);   sum: =0;   for i: =1 to 8 do sum: =sum+a[i,st];   writeln('сумма чисел этого столбца - ',sum); end.