Задачка на дату

[KREGI]

Помогите пожалуйста с задачей:
Составьте программу которая по номеру дня в году выводит число и месяц в общепринятой форме (например: 33 день - 2 февраля)

Здесь по идеи можно case использовать... но что то не вышло...
Заранее спасибо.

[Манжосов Денис :)]

program ameba;
var
  n: 1..365;
begin
  ReadLn(n);
  case n of
  '1'..'31': WriteLn('Янваааарь!'); 
  {И так далее}
  end;
end.

[KREGI]

в институте писал её, вроде типа того(на делфи) не пахала, но там я с типами начудил.
какой тип n?

Манжосов Денис спасибо, вот ниже код мой рабочий. сделал.

procedure TForm1.Button1Click(Sender: TObject);
var
 n:1..365;
begin
n:=strtoint(edit1.text);
   case n of
  1..31: showmessage((inttostr(n))+' день года/'+'Январь/ '+(inttostr(n))+' Января/');
  32..60: showmessage((inttostr(n))+' день года/'+'Февраль/ '+(inttostr(n-31))+' февраля/');
  61..91: showmessage((inttostr(n))+' день года/'+'Март/ '+(inttostr(n-60))+' Марта/');
  92..121: showmessage((inttostr(n))+' день года/'+'Апрель/ '+(inttostr(n-91))+' Апреля/');
  122..152: showmessage((inttostr(n))+' день года/'+'Май/ '+(inttostr(n-121))+' Май/');
  153..182: showmessage((inttostr(n))+' день года/'+'Июнь/ '+(inttostr(n-152))+' Июня/');
  183..213: showmessage((inttostr(n))+' день года/'+'Июль/ '+(inttostr(n-182))+' Июля/');
  214..243: showmessage((inttostr(n))+' день года/'+'Август/ '+(inttostr(n-213))+' Августа/');
  244..274: showmessage((inttostr(n))+' день года/'+'Сентябрь/ '+(inttostr(n-243))+' Сентября/');
  275..304: showmessage((inttostr(n))+' день года/'+'Октябрь/ '+(inttostr(n-274))+' Октября/');
  305..335: showmessage((inttostr(n))+' день года/'+'Ноябрь/ '+(inttostr(n-304))+' Ноября/');
  336..365: showmessage((inttostr(n))+' день года/'+'Декабрь/ '+(inttostr(n-335))+' Декабря/');
  end;
end;

[Serge_Bliznykov]

я уже тут на форуме писал решение этой задачи.
могу продублировать решение тут:

const
  MonthName : array[1..12] of string =
('Января','Февраля','Марта','Апреля','Мая','Июня','Июля',
'Августа','Сентября','Октября','Ноября','Декабря');  


{*                    OPDATE.PAS 1.21                    *}
{*     Copyright (c) TurboPower Software 1988, 1992.     *}

  function IsLeapYear(Year : Integer) : Boolean;
    {-Return True if Year is a leap year}
  begin
    IsLeapYear := (Year mod 4 = 0) 
          and (Year mod 4000 <> 0) and
            ((Year mod 100 <> 0) or (Year mod 400 = 0));
  end;


  function DaysInMonth(Month, Year : Integer) : Integer;
    {-Return the number of days in the specified month of a given year}
  begin
    case Month of
      1, 3, 5, 7, 8, 10, 12 :
        DaysInMonth := 31;
      4, 6, 9, 11 :
        DaysInMonth := 30;
      2 :
        DaysInMonth := 28+Ord(IsLeapYear(Year));
    else
      DaysInMonth := 0;
    end;
  end;
  
var
  God, NomDay, TempNomDay, CurMonth : integer;

begin
  WriteLn('Введите год (>1900): ');
  Readln(God);
  if God<1900 then begin
    WriteLn('#ошибка: год слишком мал... Bye...');
    Halt;    
  end;
  WriteLn('Введите номер дня в году (>0 и <367): ');
  Readln(NomDay);
  if (NomDay<1) or (NomDay>(365+Ord(IsLeapYear(God)))) then begin
    WriteLn('#ошибка: неверный номер дня в ',God:1,' году! Bye...');
    Halt;    
  end;
  CurMonth := 1;
  TempNomDay := NomDay;
  while TempNomDay>DaysInMonth(CurMonth,God) do
  begin
    TempNomDay := TempNomDay - DaysInMonth(CurMonth,God);
{    if TempNomDay>DaysInMonth(CurMonth+1,God) then}
    Inc(CurMonth);
  end;
  
  WriteLn(NomDay:1,'-й день - это ',
     TempNomDay:1,' ',MonthName[CurMonth],' ',God:1,' года.');
  Readln;
end.

p.s. високосный/невисокосный года учитываются.