5 упрастите выражения2a.3+3a.2-a+1)-(4a.4+6a.3-2a.2+2a)-(2a.5+3a.4-a3+a2) ( и полностью 6.)
это алгебра.

#include <iostream>
using namespace std;

int main()
{
    setlocale (LC_ALL,"Russian");
    int number;
    do
    {
        cout <<"Введите номер группы: ";
        cin >> number;
    }
    while (number<100 || number>999);
    char *groups[9]={"исторический","экономический","юридический",
                             "математический","физический","химический",
                             "биологический","географический","географический"};
    cout <<groups[number/100-1] <<", поступил в 200" <<number/10%10
           <<" году\n";
    return 0;
}
Как задание понял, так и написал

Var a: byte; b:integer;
Begin 
writeln('Введите день месяца');
readln(b);
writeln('Введите номер месяца');   
Readln(a);    
          Case a of        
1: writeln(b,' янавря');        
2: writeln(b,' февраля');      
3: writeln(b,' марта ');        
4: writeln(b,' апреля ');      
5: writeln(b,' мая');      
6: writeln(b,' июня ');        
7: writeln(b,' июля');       
8: writeln(b,' августа');     
9: writeln(b,' сентября');     
10: writeln(b,' октября');     
11: writeln(b,' ноября');       
12: writeln(b,' декабря');     
else writeln('Месяца №', a,'нет');   
end;       
end.