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

// pascalabc.net 3.2, сборка 1457 от 29.05.2017 // внимание! если программа не работает, обновите версию! begin   var n: =readlninteger('количество фамилий: ');   var l: =readseqstring('вводите фамилии построчно: ',n).tolist;   var f: =readlnstring('искать фамилию: ');   var i: =l.findindex(w-> w=f);   if i> =0 then writeln('номер в списке- ', i+1)   else begin       i: =l.select(w-> w.length).toarray.indexmax;       l.insert(i+1,f);       writeln('вставлена после фамилии ',l[i]);       l.println       end end. примеры количество фамилий: 6 вводите фамилии построчно: иванов петрова сидоров сидорчук ножкина жук искать фамилию: ножкина номер в списке- 5 количество фамилий: 6 вводите фамилии построчно: иванов петрова сидоров сидорчук ножкина жук искать фамилию: ложкина вставлена после фамилии сидорчук иванов петрова сидоров сидорчук ложкина ножкина жук

Т.е. выполнить . операции с этим числами, я так понял? 101011 (2) = 43 (10) 101 (2) = 5 (10) 101011 + 101 = 110000 (2) = 48 (10) 101011 - 101 = 100110 (2) = 38 (10) 101011 * 101 = 11010111 (2) = 215 (10) 101011 / 101 = 1000 (2) = 8 (10) - приблизительно. точный результат 8,6 нельзя записать в двоичном виде.