.Дано число к (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<<"n  День=";
cin>>N;
while(N>S){ N=N-7;
}
 dp=N;
 switch(dp)
{ 
    case 1:   
    cout<<"n  Среда"<<endl; 
  break;
case 2:   
    cout<<"n  Четверг"<<endl;
    break;
case 3:   
    cout<<"n  Пятница"<<endl; 
   break;
case 4: 
      cout<<"n  Суббота"<<endl; 
  break;
 case 5: 
      cout<<"n  Воскресенье"<<endl; 
  break;
case 6:     
  cout<<"n  Понедельник"<<endl;
    break;
 case 7:   
   cout<<"n  Вторник"<<endl; 
  break;
  }
system("pause");
return 0;
}