1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
uses crt;
var s,g:string;
i,kol:integer;
begin
clrscr;
g:='AEIOU';
Write('Текст: ');readln(s);
Writeln('Исходный текст: ');
Writeln(s);
For i:=1 to length(s) do
begin
if s[i] in ['0'..'9'] then s[i]:=' ';
If pos(s[i],g)>0 then inc(kol);
if s[i] in ['a'..'z'] then s[i]:='?';
end;
Writeln('Кол-во прописных гласных - ',kol);
Writeln('Преобразованный текст: ');
Writeln(s);
readkey
end.