Uses CRT;Var a:set of char; s:string; j:char; i,k:integer;begin writeln('Введите строку: ');readln(s);a:=[];k:=0;for i:=1 to length(s) do if s[i] in ['А','а','Е','е','Ё','ё','О','о','У','у','Ы','ы','Э','э','Ю','ю','Я','я'] then begin a:=a+[s[i]]; k:=k+1; end;write('Гласные буквы, присутствующие в строке: ');for j:='А' to 'я' do if j in a then write(j:2); writeln; write ('Количество гласных букв: ',k);end.
