Паскаль.. кто может помогите

Question

Напишите программу которая складывает календарную дату с заданным количеством дней ( результат- календарная дата)

Евгения Романова · Accepted Answer

1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17Const mas:array[1..12] of byte = (31,28,31,30,31,30,31,31,30,31,30,31); 
Var d:1..31; 
 g:1800..2012; 
 i:integer; 
Begin 
 write('Введите порядковый номер дня в году: ');readln(d); 
 write('Введите год: ');readln(g); 
 i:=0; 
 While (d>0)and(i<12) do 
 Begin 
 inc(i); 
 d:=d-mas; 
 End; 
 if d<=0 then d:=d+mas; 
 writeln('Месяц: ',i,' День: ',d); 
 readln; 
End.