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
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  Среда"<  break;
case 2:   
    cout<<"\n  Четверг"<    break;
case 3:   
    cout<<"\n  Пятница"<   break;
case 4: 
      cout<<"\n  Суббота"<  break;
 case 5: 
      cout<<"\n  Воскресенье"<  break;
case 6:     
  cout<<"\n  Понедельник"<    break;
 case 7:   
   cout<<"\n  Вторник"<  break;
  }
system("pause");
return 0;
}