Календарь на паскаль.

[noisor]

Помогите пожалуйста написать календарь на паскале на вводе 2 числа.
число и номер месяца. на выводе номер недели и дня недели(1-понедельник, 2-вторник и т.д).
(35 неделя, 4 день) заранее спасибо)

[Donald Ervin Knuth]

Сообщение от noisor

Помогите пожалуйста написать календарь на паскале на вводе 2 числа.
число и номер месяца. на выводе номер недели и дня недели(1-понедельник, 2-вторник и т.д).
(35 неделя, 4 день) заранее спасибо)

program ned_mes30;
var
ned,mes,den,den_ned,col:integer;
begin
   writeln('Введите месяц=');readln(mes);
   case mes of
  2:col:=31;
  3:col:=31+28;
  4:col:=31+28+31;
  5:col:=31+28+31+30;
  6:col:=31+28+31+30+31;
  7:col:=31+28+31+30+31+30;
  8:col:=31+28+31+30+31+30+31;
  9:col:=31+28+31+30+31+30+31+31;
  10:col:=31+28+31+30+31+30+31+31+30;
  11:col:=31+28+31+30+31+30+31+31+30+31;
  12:col:=31+28+31+30+31+30+31+31+30+31+30;
  else
  col:=0;
  end;
  writeln('Введите число в этом месяце=');readln(den);
    col:=col+2; 
    col:=col+den; {-- плюс кол-во дней в текущем месяце--}
    den_ned:=(col mod 7); 
    ned:=(col div 7);
    if den_ned=0 then den_ned:=7;  
    if ned<>1 then ned:=ned+1;
    writeln(ned,' неделя,  ',den_ned,' день' ); 
                     case den_ned of
                       1:writeln('Понедельник');
                       2:writeln('Вторник');
                       3:writeln('Среда');
                       4:writeln('Четверг');
                       5:writeln('Пятница');
                       6:writeln('Суббота');
                       else writeln('Воскресенье');
                       end;
end.