40 на паскале написать дано целое число k (1< =k< =365). определить каким днём недели (понедельник, или воскресенье) является k-й день года,в котором 1 января: а)понедельник б)d-й день недели (если 1 января-понедельник,то d=1,если вторник -d = воскресенье d=7).

Uses crt; var k,n: integer; begin clrscr; writeln ('введи день года от 1 до 365'); readln (k); if (k> =1) and (k< =365) then     begin     n: =k mod 7;     case n of 1: writeln ('понедельник'); 2: writeln ('вторник'); 3: writeln ('среда'); 4: writeln ('четверг); 5: writeln ('пятница'); 6: writeln ('суббота'); 0: writeln ('воскресенье'); end; end else writeln ('неверный ввод'); readln; end. uses crt; var k,n,d: integer; begin clrscr; writeln ('введи с какого дня недели 1 января (1-пон, 2-вт и тд до 7)'); readln (d); writeln ('введи день года от 1 до 365'); readln (k); if (k> =1) and (k< =365) and (d> =1) and (d< 8) then     begin     n: =k mod 7 +d-1;     case n of 1: writeln ('понедельник'); 2: writeln ('вторник'); 3: writeln ('среда'); 4: writeln ('четверг'); 5: writeln ('пятница'); 6: writeln ('суббота'); 0,7: writeln ('воскресенье'); end; end else writeln ('неверный ввод'); readln; end.

A, b, c = () # строка не нужна, если переменные уже определеныa, b, c = c, a, bprint(a, b, c)