Составить программу в PascalABC, которая создаёт и выводит на экран массив

                                                          профессия  на открытом воздухе       в помещениях     в небольших         в небольших                                                                         замкнутых             условиях                                                                          пространство.       труда

Пусть a, b, c − число пассажиров каждой из маршруток. тогда, нужно во-первых: выяснить можно ли поделить пассажиров поровну между тремя маршрутками; во-вторых: если первое утверждение верно, то k : = (a + b + c) div 3; − число пассажиров, которое должно приходиться на 1 маршрутку sum : = 0; − счётчик пересаживаемых пассажиров da : = a - k; if da > 0 then sum : = sum + da; db : = b - k; if db > 0 then sum : = sum + db; dc : = c - k; if dc > 0 then sum : = sum + dc; − если разница числа пассажиров и количества, которое должно быть в маршрутке, число положительное, значит столько пассажиров из данной маршрутки необходимо пересадить. что то типа дальше сама