b1

-----------------------------—
Решение задачи b1
-----------------------------
простая задача на оператор if
if (условие, "(a<29)and(a<=0)") then (действие(x:=2))
----------------------------------
код:
var a,b,c: longint;
begin
readln(a);
if (a>=0)and(a<=28)then writeln(2);
if (a>=29)and(a<=52)then writeln(3);
if(a>=53)and(a<=77)then writeln(4);
if a>77 then writeln(5);
end.