помогите с решением программ с перечисляемым типом

[Alex@ndra]

задали такую задачку:
нужно с использованием порядкового типа составить задачу свыдаюшую порядковый номер дня в году по введенной дате (день и месяц) например 123
день в году это 1 мая.... и одну задачу все тоже самое только должен выдать дату при введенном номере дня!!!!!!

[Stilet]

порядковый номер дня в году по введенной дате

Ну если навскидку то что-то в этом роде:

 const a:array[1..12] of byte=(31,29,31,30,31,30,31,31,30,31,30,31);
 var d,m,s,y:integer;
begin
  write('day ');readln(d);
  write('month ');readln(m);
  write('year ');readln(y);
  while m>1 do begin s:=s+a[m]; dec(m); end;
  s:=s+d;
  if y mod 4 =0 then inc(s); {Если високосный}
   writeln(s);readln
end.

дату при введенном номере дня

ну вроде такого без учета високосности

 const a:array[1..12] of byte=(31,29,31,30,31,30,31,31,30,31,30,31);
 var d,m,s,y:integer;
begin
  write('day num');readln(d);
  m:=1;
  while d>a[m] do begin d:=d-a[m]; inc(m); end;
  writeln('month = ',m,'day = ',d);
  readln;
end.