.Дано число к (0<к<366) числу к=1 соответствует день 1 января . среда .Напишите программу которая опред. День который соотв.введеному числу к.
Ребята,умоляю очень срочно помогите решить.
Пожалуйста пожалуйста пожалуйста
очень прошу
даю 30 баллов
умоляю помогите

var    k: integer;begin    writeln('Введите число');    readln(k);    case(k mod 7) of        1: writeln('Среда');        2: writeln('Четверг');        3: writeln('Пятница');        4: writeln('Суббота');        5: writeln('Воскресенье');        6: writeln('Понедельник');        0: writeln('Вторник');    end;end.

#include <iostream>using namespace std;int main (){ setlocale(LC_ALL,"Rus"); int dp,N,S=7;cout<<"  День=";cin>>N; while(N>S){ N=N-7; }  dp=N;  switch(dp){     case 1:       cout<<"  Среда"<<endl;    break; case 2:       cout<<"  Четверг"<<endl;    break; case 3:       cout<<"  Пятница"<<endl;    break; case 4:       cout<<"  Суббота"<<endl;    break; case 5:       cout<<"  Воскресенье"<<endl;    break; case 6:       cout<<"  Понедельник"<<endl;    break; case 7:       cout<<"  Вторник"<<endl;    break;  }system("pause");return 0;}