Дано три числа, которые показывают день, месяц и год. Составить программу, которая…

const a: array[1… 12] of byte=(31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31); var D: 1… 31; M: 1… 12; G: 1800… 2012; i, num: integer; begin writeln ('Введите день, месяц, год: '); readln (D, M, G); for i: =1 to (M — 1) do num: =num+a[i]; writeln ('Порядковый номер даты: ', num+D); end.