Дана строчка знаков, состоящая из больших букв российского алфавита. Напишите программку,

(см. программку стр. 46 ???

program primer 2;type anketa=record fio: string[45]; dat_r: string[8]; adres: string[50]; curs: 1..5; grupp: string[3]end;var student: array [1..100] of anketa; I: integer;beginfor I:=1 to 100 do beginwriteln (введите сведения о, I , -м студенте);writeln (введите фамилию, имя и отчество); readln (student[I].fio)

writeln (введите адресок); readln(student[I].adres);writeln (введите курс); readln(student[I].curs);writeln (введите группу); readln (student[I].grupp); end; writeln (ввод закончен); writeln; for I:=1 to 100 do if student[I].curs=2 then writeln( фамилия студента : , student[I].fio);end.

Это явно не та программка, о которой речь.

A=input()
l=len(a)
c=0
for i range(l):
(пробел)if a[i]=='А' or a[i]=='О' or a[i]== 'У' or a[i]=='Е' or a[i]=='Ы' or a[i]=='И' or a[i]=='Я' or a[i]=='Э' or a[i]=='Ю':
(пробел)(пробел)c+=1
print(c)