Решить по информатике. тема массивы. ​

1.арфа,,виолончель,скрипка, флейта. тут все струнные кроме флейты 2.барка,джонка, рикша,пакетбот,ял. тут все корабли кроме рикши 3.мусоргский,моцарт, тургенев,чайковский,бетховен. тут все музыканты кроме тургеньева 4.брюссель,лондон,мадрид,москва, нью- йорк,оттава,париж. нью-йорк не столица 5.бунгало,иглу, офис,хижина,шале. офис не место для проживания 6.волга,дунай, нил,рейн,сена. все реки кроме нила  текут в европейской части 7."волга","жигули","москвич"," руслан","чайка".все транспорт руслан самолет 8.гранит,кварц,мрамор,полевой шпат, торф. торф не является твердой породой 9.какао, кофе,пальто,резюме,эссе. все среднего рода кофе мужского

Uses crt; procedure vvod(var s: string; var i,error: byte); begin repeat read(s); val(s,i,error); if error=1 then write('введены не числовые коэфиценты, повторите ввод: '); if ((i> 15) and (i< 0)) then write('число не укладывается в заданный интервал'); until ((error=0) and (i< =15) and (i> =0)); if i< =9 then writeln(i); if i> =10 then begin if (i=10) then s: ="a"; if (i=11) then s: ="b"; if (i=12) then s: ="c"; if (i=13) then s: ="d"; if (i=14) then s: ="e"; if (i=15) then s: ="f"; writeln(s); end; end;