Небольшая по инфе ❤️найти значение переменной i на яп паскаль ​

Program yrok; var a: integer; begin writeln ('введите месяц'); readln(a); if a=1 then writeln('январь') else if a=2 then writeln('февраль') else if a=3 then writeln('март') else if a=4 then writeln('апрель') else if a=5 then writeln('май') else if a=6 then writeln('июнь') else if a=7 then writeln('июнь') else if a=8 then writeln('август') else if a=9 then writeln('сентябрь') else if a=10 then writeln('октябрь') else if a=11 then writeln('ноябрь') else if a=12 then writeln('декабрь') else writeln('такого месяца нет'); end.

Если первая дуга синусоиды - синусоида при 0 < = x < = pi, то область изображена на рисунке. точка с координатами (x, y) принадлежит области, если 0 < = x < = pi и 0 < y < sin(x), лежит на границе, если первое выполнено, и y = 0 или y = sin(x), а иначе не лежит в области. код (pascalabc.net 3.2): begin   var x, y: real;   readln(x, y);   if (0 < = x) and (x  < = pi) then     if (0 < y) and (y < sin(x)) then       writeln('внутри области')     else if (0 = y) or (y = sin(x)) then       writeln('на границе')     else       writeln('не принадлежит')   else     writeln('не принадлежит') end.