С клавиатуры вводят строку. Составить программу, которая: подсчитывает количество прописных букв.

спасибо братюн, очень выручил)

var  s: string;i,n : integer;begin  s:='';n:=0;    readln(s);for i:=1 to length(s) doif s[i] in ['а'..'я'] then n:=n+1;writeln(n);end.будет искать количество русских прописных букв.