По углам и по середине один
Предпоследние семь строчек записывают массив работников и зарплату (созданная случайным образом), общую сумму и количество работников с указанной зарплатой в файл (в программе настроено в файл output.txt на локальном диске С, при желании можно изменить название файла и месторасположения его)
При правильной работе программы на диске С данный файл создается. Если его открыть, в нем будут те же данные, которые выдаст программа на экран монитора
Var a:longint;
Begin
Read(a);
If (a>=1)and(a<=100) then writeln('молодёжь')else
If (a>=101)and(a<=200) then writeln('взрослые')else
If (a>=200)and(a<=250) then writeln('пенсионеры')else
Writeln('-');
End.