Не ((первая буква гласная) или (последняя буква варианты ответов : 1) пингвин 2)дрофа 3)иволга 4)ястреб

2) дрофа

Может быть, так: uses graphabc; begin setfontcolor(clred); writeln('белеет парус одинокой'); setfontcolor(clblue); writeln('в тумане моря '); setfontcolor(cldarkorchid); writeln('что ищет он в стране далекой? '); setfontcolor(cldeepskyblue); writeln('что кинул он в краю '); setfontcolor(cldeeppink); writeln('играют волны - ветер свищет,'); setfontcolor(clmagenta); writeln('и мачта гнётся и '); setfontcolor(cldarkgreen); writeln('увы! он счастия не ищет'); setfontcolor(cllime); writeln('и не от счастия бежит! '); setfontcolor(clbrown); writeln('под ним струя светлей лазури,'); setfontcolor(clindigo); writeln('над ним луч солнца ') end.

Const n=20; var i,f,k,j: integer; s: string; a: array[1..n] of string; begin k: =0; j: =0; writeln('введите количество строк в массиве'); readln(f); writeln('заполните массив'); for i: =1 to f do readln(a[i]); for i: =1 to f do begin   j: =pos('d',a[i]);   s: =a[i];   while (pos('a',s)< j) and (pos('a',s)< > 0) do     begin     delete(s,pos('a',s),1); j: =j-1;     end;   if pos('a',s)> j then k: =k+1;   end; if k=0 then writeln('таких строк нет') else writeln('такие строки есть'); end.