НАПИШИТЕ ПРОГРАММУ, КОТОРАЯ ВО ВВЕДЕННОЙ С КЛАВИАТУРЫ СТРОКЕ ЗАМЕНЯЕТ…

12345678910111213141516171819202122uses 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.