Question

Вопрос на фото читайте внимательно даю 50 балов ​

Answer 1

Program f;

var a : integer;

Begin

read(a);

if (a<= 31) then writeln (a, 1);

if (a>32) and (a<=59) then begin a:= a-31;

writeln (a, 2); end;

if (a>59) and (a<=90) then begin a:= a-59;

writeln (а, 3);

end;

if (a>90) and (a<=120) then begin a:= a-90;

writeln (a, 4);

end;

if (a>120) and (a<=151) then begin a:= a-120;

writeln (a, 5);

end;

if (a>151) and (a<=181) then begin a:= a-151;

writeln (a, 6);

end;

if (a>181) and (a<=212) then begin a:= a-181;

writeln (a, 7);

end;

if (a>212) and (a<=243) then begin a:= a-212;

writeln (a, 8);

end;

if (a>243) and (a<=273) then begin a:= a-

243;

writeln (a, 9);

end;

if (a>273) and (a<=304) then begin a:= a-273;

writeln (a, 10);

end;

if (a>304) and (a<=334) then begin a:= a-304;

writeln (a, 11);

end;

if (a>334) then begin a:= a-334;

writeln (a, 12);

end;

end.