Вот тебе решение:
Code
Program Dni;
type
massiv=array [1..12] of integer;
const
a:massiv=(31,28,31,30,31,30,31,31,30,31,30,31);
var
chis, mes, i: byte;
dni: integer;
begin
writeln('Vvedite 4islo i mesiac 4erez probel');
readln(chis,mes);
for i:=mes+1 to 12 do
dni:=dni+a[i];
dni:=dni+a[mes]-chis;
writeln('Do Novogo Goda ostalosb ',dni,' dnei');
readln;
end.
(НЕ ЗАБЫВАЕМ СТАВИТЬ "ПЛЮСИК")
