Задача 13.1. Надрукувати малi голоснi латинськi лiтери, якi зустрiчаються в текстi в алфавітному порядку.

Program pr1;
Type Liter=set of 'a'..'z';
Var Golosni:Liter; t:string; i,n:integer; c:char;
Begin
Write('Введiть текст'); ReadLn(t);
Golosni:=[];
n:=Length(t);
for i:=1 to n do
 if t[i] in['a','o','i','e','u','y'] then
    Golosni:=Golosni+[t[i]];
WriteLn('У текст входять голоснi лiтери');
for c:='a' to 'z' do
 if c in Golosni then write(c,' ');
End.
Результати роботи програми:
Введiть текст Computer
У текст входять голоснi лiтери
e o u