2,4: Begin

rez:=rez+mnsl-(mnsl*mn);

mn:=mn+mnsl;

end

end

end;

i:=i+1; j:=i;

end;

if kl=4 then rez:=mn-rez;

end;

begin

repeat

writeln(' Введи ключ = 1..4 ');

readln(key);

writeln(' введите исходную строку или ввод');

readln(st); { чтение исходной строки}

if length(st)<>0 then

begin

writeln('Исходная строка');

writeln(st);

prinmn(key,st,rezul);

case key of

1: writeln(' гласные, которые входят в каждое слово');

2: writeln(' гласные, входящие только в одно слово');

3: writeln(' гласные, входящие хотя бы в одно слово');

4: writeln(' гласные, входящие более чем в одно слово');

end;

for ch:=#0 to #255 do if ch in rezul then write(ch:2);

writeln;

end

until length(st)=0;

end.