Программа 8 класса в Pascal срочно!

Question

Написать программу, которая анализирует человека по возрасту и относит к одной из четырёх групп: дошкольник (до 7 лет), ученик (от 7 до 18 включительно), работник (от 19 до 55 - женщины, 65 - мужчины), пенсионер (от 56/ 66)

araz_arazow_1 · Accepted Answer

Program ms3;
uses crt;
Var a,b,c,d:integer;
Begin cls;
Write ('':5,'wwedite chislo a = ');read(a);
If (a>=1) and (a<7) then Write ('':5,'doshkolnik!') else
If (a>=7) and (a<=18) then Write ('':5,'uchenik!') else
If (a>=19) and (a<=55) then Write ('':5,'rabotnik. dlya dgenshin i muzshin!');
If (a>=56) and (a<=65) then Write ('':5,'pensioner dlya dgenshin, rabot. dlya muzshin!')else
If (a>=66) and (a<140) then Write ('':5,'pensioner dlya muzshin i dgenshin!');
End.