Нужно (pascalabc.net) в службе социального обеспечения (собес) имеется список пенсионеров. о каждом пенсионере содержатся сведения: фамилия, имя, отчество, адрес (район, улица, дом, квартира), место и дата рождения, общий стаж работы и стаж работы на "вредном производстве", пол, зарплата, из которой была начислена пенсия, размер пенсии. создать массив из записей. выдать следующие сведения: по данным о пенсионере (фамилии, имени, отчеству) выдать размер его пенсии; по стажу работы на "вредном производстве" -список пенсионеров; список пенсионеров, имеющих пенсию ниже средней.

//pascalabc.net 3.2 сборка 1318 type   people=record     subn: string;   //фамилия     n: string;     //имя     otn: string;   //отчество     rai: string;     //район     street: string;   //улица     hou: integer;     //дом     ap: integer;     //квартира     plbor: string;       //место рождения     daybor: integer;     //день рождения     mounthbor: integer; //месяц рождения     yearbor: integer;   //год рождения     mainworktime: integer; //общий стаж работы     dangworktime: integer; //стаж работы на "вредном производстве"     gender: string;       //пол     moneypermounth: integer; //з/п, из которой была начислена пенсия     oldmoneypermounth: integer; //пенсия   end;   var   oldpeople: array of people;   i,n,st: integer;   sfio: string;   sr: real; begin sr: =0; write('введите количество пенсионеров: '); readln(n); setlength(oldpeople,n); for i: =0 to n-1 do   begin     write('фамилия пенсионера #',i,': ');     readln(oldpeople[i].subn);     write('имя пенсионера #',i,': ');     readln(oldpeople[i].n);     write('отчество пенсионера #',i,': ');     readln(oldpeople[i].otn);     write('район пенсионера #',i,': ');     readln(oldpeople[i].rai);     write('улица пенсионера #',i,': ');     readln(oldpeople[i].street);     writeln('дом пенсионера #',i,': ');     readln(oldpeople[i].hou);     writeln('квартира пенсионера #',i,': ');     readln(oldpeople[i].ap);     writeln('место рождения пенсионера #',i,': ');     readln(oldpeople[i].plbor);     writeln('день рождения пенсионера #',i,': ');     readln(oldpeople[i].daybor);     writeln('месяц рождения пенсионера #',i,': ');     readln(oldpeople[i].mounthbor);     writeln('год рождения пенсионера #',i,': ');     readln(oldpeople[i].yearbor);     writeln('общий стаж работы пенсионера #',i,': ');     readln(oldpeople[i].mainworktime);     writeln('cтаж работы на "вредном производстве" пенсионера #',i,': ');     readln(oldpeople[i].dangworktime);     writeln('пол пенсионера #',i,': ');     readln(oldpeople[i].gender);     writeln('з/п, из которой была начислена пенсия пенсионера #',i,': ');     readln(oldpeople[i].moneypermounth);     writeln('пенсия пенсионера #',i,': ');     readln(oldpeople[i].oldmoneypermounth);     sr+=oldpeople[i].oldmoneypermounth; end; write('введите фио пенсионера'); readln(sfio); var fio: =sfio.split; for i: =0 to n do if (oldpeople[i].subn=fio[0]) and (oldpeople[i].n=fio[1]) and (oldpeople[i].otn=fio[2]) then   begin     writeln(oldpeople[i].oldmoneypermounth);     break;   end; write('введите стаж работы на "вредном производстве": '); readln(st); for i: =0 to n do if oldpeople[i].dangworktime=st then   writeln(oldpeople[i].subn,' ',oldpeople[i].n,' ',oldpeople[i].otn); sr/=n; writeln('список пенсионеров с зарплатой ниже среднего'); for i: =0 to n do if oldpeople[i].oldmoneypermounth< sr then   writeln(oldpeople[i].subn,' ',oldpeople[i].n,' ',oldpeople[i].otn); end.

20= 180*i(вес одного символа) i=720/180 (количество информации в сообщении)  i=4 (мощность алфавита)n=2^i n=2^4 n=16