Уровень 5 Используя графические возможности языка программирования Pascal, решите
y = 0,3х - 2),
систему уравнений
y = cos x;
Значениях находятся на промежутке [0; 20].​

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.