Напишите программу, которая анализирует человека по возрасту и относит к одной из четырех групп: дошкольник, ученик, работник, пенсионер. возраст человека вводится с клавиатуры

то что подчеркнуто на минимальный возвраст группы заменить.

? "введите возвраст человека"

input a

if a> пенсионер then 1 else 2

1 ? "группа пенсионеров" : goto 10

2 if a> работник then 3 else 4

3 ? "группа работников" : goto 10

4 if a> ученик then 5 else 6

5 ? "группа учеников" : goto 10

6 ? "группа дошкольников"

10 end

// pascalabc.net 3.2, сборка 1478 от 10.06.2017 // внимание! если программа не работает, обновите версию! №1 begin   var n: =readinteger('n=');   writeln('s=',n*(n+1) div 2) end. пример n= 15373 s=118172251 №2 begin   var m: =readinteger('количество строк в матрице: ');   var n: =readinteger('количество столбцов в матрице: ');   writeln('*** исходная матрица [',m,',',n,'] ***');   var a: =matrrandom(m,n,-99,99);   a.println(4); writeln(4*a.colcount*'-');   writeln('количество отрицательных элементов построчно: ');   a.rows.select(r-> r.where(x-> x< 0).count).println end. пример количество строк в матрице: 5 количество столбцов в матрице: 8 *** исходная матрица [5,8] ***   88  43  64  50 -27  -9  48  55     1  40 -39 -99 -45 -54  17 -77   -33  99 -38 -19 -93  18 -19 -24   17    4 -36  90  98  69  68  35   -35  18  85  54 -74 -69  14 -62 количество отрицательных элементов построчно: 2 5 6 1 4