3. Дни недели пронумерованы следующим образом: 0 — воскресенье, 1 — понедельник, 2 — вторник, …, 6 — суббота. Дано целое число K, лежащее в диапазоне 1–365. Определить номер дня недели для K-го дня года, если известно, что в этом году 1 января было четвергом. для с как это решать мне ну столь нужен ответ как понимание как это делать

program ZZZ;

var z,s:integer;

begin  

writeln('введите число <= 365');

readln (z)  ;

s:= z mod 7;

if s = 0 then writeln ('это воскресенье');

if s = 1 then writeln ('это понедельник');

if s = 2 then writeln ('это вторник');

if s = 3 then writeln ('это среда');

if s = 4 then writeln ('это четверг');

if s = 5 then writeln ('это пятница');

if s = 6 then writeln ('это суббота');

end.

Объяснение:

var K : Integer;

begin

Write('Введите номер для года: '); ReadLn(K);

Write((K + 3) mod 7, ' - ');

case (K + 3) mod 7 of

0: WriteLn('Воскресенье');

1: WriteLn('Понедельник');

2: WriteLn('Вторник');

3: WriteLn('Среда');

4: WriteLn('Четверг');

5: WriteLn('Пятница');

6: WriteLn('Суббота');

end;

end.

Объяснение: