Исправьте ошибку

[kipapsih]

2. Числа a,b,c обозначают дату. Определить, сколько полных дней осталось до конца года .

program num8;
uses crt;
var
a,b,c,y:integer;
begin
writreln(‘vvedite № day’);
readln(a);
writreln( ‘vvedite № mounth’);
readln(b);
writreln(‘vvedite № year’);
readln(c);
if (c mod 4:=0) then (c:=366)
else
c:=365;
case b of
y:=c-a;
y:=c-31-a;
y:=c-31-28-a;
y:=c-31*2-28-a;
y:=c-31*2-28-30-a;
y:=c-31*3-28-30-a;
y:=c-31*3-28-30*2-a;
y:=c-31*4-28-30*2-a;
y:=c-31*5-28-30*2-a;
y:=c-31*5-28-30*3-a;
y:=c-31*6-28-30*3-a;
y:=c-31*6-28-30*4-a
end;
If b>2 then y:=y-2;
writeln(y);
readln;
end.