СРОЧНО !! Что означают цифры когда считают 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.