Даны числа А,В,С, обозначающие дату.Определить, сколько полных дней осталось до конца года.

program dni;
uses crt;
var a,c,b,n,p,t: integer;
   begin
   clrscr;
   writeln ('Den:');
   readln(a);
   writeln ('Mesjach:');
   readln(b);
   writeln ('God:');
   readln(c);
   if (a<=0) and (a>=32) then 
   writeln (' Nekorrektnij den')
   else
   if (b<=0) and (b>=13) then
   writeln ('Nekorrektnij mesyac');
   begin
   if c mod 4=0 then
   p:=29
   else
   p:=28;
   case p of
   1 :n:=a;
   2 :n:=31+a;
   3 :n:=31+p+a;
   4 :n:=31+p+31+a;
   5 :n:=31+p+31+30+a;
   6 :n:=31+p+31+30+31+a;
   7 :n:=31+p+31+30+31+30+a;
   8 :n:=31+p+31+30+31+30+31+a;
   9 :n:=31+p+31+30+31+30+31+31+a;
   10 :n:=31+p+31+30+31+30+31+31+30+a;
   11 :n:=31+p+31+30+31+30+31+31+30+31+a;
   12 :n:=31+p+31+30+31+30+31+31+30+31+30+a;
    end;
   begin
   if (( c mod 4 = 0) or (c mod 100 = 0)) and (c mod 400 <> 0) then
   t:=366-n
   else
   t:=365-n;
   writeln ('Ostalos dnej=', t);
   readln(t);
   end;
   end;
   end.