Паскаль. Перечислимый тип. Закончить прогу???

[katya36]

{Пусть дан фрагмент программы:

type
месяц = (янв. фев. мар. апр. май. сен. окт. ноя. дек );

var
k: 1..366;
d: 1..31;
m: месяц;

Определите k - порядковый номер дня високосного года, который имеет дату d,m. }


program VISICOS;

{$APPTYPE CONSOLE}

type
month = (JAN, FEB, MAR, APR, MAY, JUN, JUL, AUG, SEP, OCT, NOV, DEC );

const
DaysInMonth : array[month] of integer =
(31,29,31,30,31,30,31,31,30,31,30,3 1);

var
k:1..366;
d:1..31;
m1:month;

procedure vvod_month // Нужно написать параметры этой процедуры
var
i:integer;
begin
writeln ('vvedite mecyac');
writeln ('1- JAN');
writeln ('2- FEB');
writeln ('3- MAR');
writeln ('4- APR');
writeln ('5- MAY');
writeln ('6- JUN');
writeln ('7- JUL');
writeln ('8- AUG');
writeln ('9- SEP');
writeln ('10- OKT');
writeln ('11- NOV');
writeln ('12- DEC')
readln(i);

case i of 1:m1:= JAN;
2:m1:= FEB;
3:m1:= MAR;
4:m1:= APR;
5:m1:= MAY;
6:m1:= JUN;
7:m1:= JUL;
8:m1:= AUG;
9:m1:= SEP;
10:m1:= OCT;
11:m1:= NOV;
12:m1:= DEC;

end;




Вобщем начало программы я написала, а вот дальше не знаю как...Помогите пожалуйста дописать?? И какие параметры у процедуры Ввод_месяца???

[werder_ua]

Извини но я не понял что нужно зделать. Напиши толком что ета прога должна делать. Какие вхадние дание и что нужно получить на виходе.

[VadEr]

Видимо определить порядковый номер дня в году:

program VISICOS;
{$APPTYPE CONSOLE}
uses
  SysUtils;
type
month = (JAN, FEB, MAR, APR, MAY, JUN, JUL, AUG, SEP, OCT, NOV, DEC);
const
DaysInMonth : array[JAN..DEC] of integer = (31,29,31,30,31,30,31,31,30,31,30,31);
var
  m     :byte;
  m1,m2 :month;
  d     :1..31;
  k     :1..366;
procedure vvod_month(i:byte);
begin
case i of
  1: m1:= JAN;
  2: m1:= FEB;
  3: m1:= MAR;
  4: m1:= APR;
  5: m1:= MAY;
  6: m1:= JUN;
  7: m1:= JUL;
  8: m1:= AUG;
  9: m1:= SEP;
  10:m1:= OCT;
  11:m1:= NOV;
  12:m1:= DEC;
end;
end;
begin
writeln ('1- JAN  5- MAY   9- SEP');
writeln ('2- FEB  6- JUN  10- OKT');
writeln ('3- MAR  7- JUL  11- NOV');
writeln ('4- APR  8- AUG  12- DEC');
writeln;
write('Enter month: ');
readln(m);
write('Enter day of month: ');
readln(d);
vvod_month(m);
k := k-1;
if m > 1 then
  begin
    for m2:=JAN to m1 do
        k := k + DaysInMonth[m2];
    k := k - DaysInMonth[m1] + d;
  end
else k := d;
Writeln('Namber of day: ',k);
Readln
end.

[katya36]

VadEr, Спасибо большое!
Ну да, по идее если вводим например второе января, программа должна вывести 2