Вводится символьная строка, состоящая из «слов» — последовательностей символов, не содержащих пробелов. Отдельные «слова» отделены друг от друга пробелами. Эти «слова» мысленно нумеруются по порядку их расположения в строке: первое, второе, третье и т.д., поэтому к ним применимы такие понятия, как четное, нечетное, кратное M слово — здесь везде подразумевается по номеру.
program ht;
var
p, code: integer;
i, j, n: integer;
s, x: string;
A: array [1 .. 100] of string;
glasn: string;
b: boolean;
begin
glasn := 'aeiouy';
write('Vvedite stroky slov: ');
readln(s);
j := 0;
repeat
inc(j);
p := pos(' ', s);
x := copy(s, 1, p - 1);
if p = 0 then
x := s;
A[j] := x;
delete(s, 1, p);
until p = 0;
n := j;
for i := 1 to length(glasn) do
begin
b := true;
for j := 1 to n do
if pos(glasn[i], A[j]) = 0 then
b := false;
if not b then
writeln(glasn[i]);
end;
readln;
end.