СРОЧНО !! Что означают цифры когда считают d ?
uses crt;
const
f=28;
s=30;
t=31;
year=365;
var m,n,d,res:integer;
begin
clrscr;
write('Vvedite nomer mesyaca -> ');
readln(m);
write('Vvedite nomer dnya -> ');
readln(n);
if (m>12) or (n>31) then writeln('dannie vvedeni ne verno') else
begin
case m of
1:d:=n;
2:d:=t+n;
3:d:=t+f+n;
4:d:=2*t+f+n;
5:d:=2*t+F+s+n;
6:d:=3*t+f+s+n;
7:d:=3*t+2*s+f+n;
8:d:=4*t+2*s+f+n;
9:d:=5*t+2*s+f+n;
10:d:=5*t+3*s+f+n;
11:d:=6*t+3*s+f+n;
12:d:=6*t+4*s+f+n;
end;
res:=year-d;
writeln('Do novogo goda ostalos dney -> ',res);
end;
readkey;
end.

в - это колво дней что прошло с начала года. t,f,s - константы, разные длины месяцевнапример ввели 5 2 (2 мая)до мая были январь и март( по 31 дню) и февраль (28 дней) и апрель (30 дней). Тогда всего дней с начала года прошло 2*31+28+30+2 = 2*t+f+sНадеюсь понятно разжевано)