Ребятки помощь нужна срочно! Паскаль 9 класс. пользоваться можно case, while, repeat (но...

Question

Ребятки помощь нужна срочно! Паскаль 9 класс. пользоваться можно case, while, repeat (но не uses!!) ВОТ 2 ЗАДАЧИ!

---

Answer 1

1 задача:
var a,b,kosh:int64;
begin
kosh:=0;
a:=0;
while a<1 do <br>   begin
   writeln('Vvedite nomer mesyatsa');
   read(b);
   if b<1 then kosh:=kosh+1;<br>   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.         

Comments

2 задача:

---

То же самое, только надо из 365 вычесть сумму дней, которые уже прошли, и писать это вместо "30 dney".

---

спасибо