Дана строка. Подсчитать количество содержащихся в ней прописных латинских букв.символы можно сравнивать. В компьютерном алфавите они идут по порядку. Например, 'B' > 'A'.

vara,i:integer;s:string;beginreadln(s);for i:=1 to length(s) doif s[i]<='Z' then a:=a+1;writeln(a);end.