Program zad15praktic;
const
glasn=['а','е','и','о','у','ы','э','ю','я'];
st: string;
g,i:integer;
begin
write(' букву ');
readln(i);
if i in glasn then Writeln (‘Да! Это гласная’)
else writeln (‘Нет! Это согласная ‘);
end.