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

Var  
s: string;
i,n : integer;
begin
 s:='';
n:=0;    
readln(s);
for i:=1 to length(s) do
if s[i] in ['а'..'я'] then n:=n+1;
writeln(n);
end.

будет искать количество русских прописных букв.