Напишите программы на паскале для решения следующих выясните принадлежит ли числа a и b промежутку(-1; 1)

uses crt; var a,b: real;

begin readln(a,b); if ((a< 1) and ( a > - 1)) then writeln(' tocha a vhodit v diapazon ' ) else writeln('tochka a ne vhodit'); if ((b< 1) and ( b > - 1)) then writeln(' tocha b vhodit v diapazon ' ) else writeln('tochka b ne vhodit');

readln; end.

#include< iostream> using namespace std; int main() {       int d = 0, m;       cout < < "m = ",cin > > m;       if (m> 1) d+=31;       if (m> 2) d+=28;       if (m> 3) d+=31;       if (m> 4) d+=30;       if (m> 5) d+=31;       if (m> 6) d+=30;       if (m> 7) d+=31;       if (m> 8) d+=31;       if (m> 9) d+=30;       if (m> 10) d+=31;       if (m> 11) d+=30;       d = d % 7;       if (d == 0) d = 7;       if (m==1||m==3||m==5||m==7||m==8||m==10||m==12) m = 32;       else if (m==4||m==6||m==9||m==11) m = 31;             else m = 29;       for(int i = 1; i < d; i++)             cout< < "    ";       cout< < " ";       for(int i = d; i < 8; i++)             cout < < i-d+1< < "  ";       int i = 9-d;       while(i < m)       {             cout < < '\n';             for(int j = 0; j < 7& & i < m; j++)             {                   if (i < 10) cout< < ' ';                   cout < < i++< < " ";             }       }       return 0; }