sokolovmantrix 1 задача:
var a,b,kosh:int64;
begin
kosh:=0;
a:=0;
while a<1 do
   begin
   writeln('Vvedite nomer mesyatsa');
   read(b);
   if b<1 then kosh:=kosh+1;
   a:=b;
   end;
if a=2 then begin write ('28 ili 29 dney'); writeln('Sdelano oshibok ',kosh); end;
if (a=1) or (a=3) or (a=5) or (a=7) or (a=8) or (a=10) or (a=12) then
                                                               begin
                                                               writeln('31 den');
                                                                 writeln('Sdelano oshibok ',kosh);
                                                               end;      
if (a=4) or (a=6) or (a=9) or (a=11) then
                                                            begin
                                                               writeln('30 dney');
                                                                 writeln('Sdelano oshibok ',kosh);
                                                               end;
end.