Program Task_13_5;
Var n : Byte;
Function Count:Byte;
Var s : String;
m:Byte;
Begin m := 0;
While Not Eof Do begin
ReadLn (s);
If s[l] In ['A'..'Z'] Then Inc(m);
End;
Count:= m; End; Begin
Assign(input, 'c:\test.txt');
Reset(input);
WriteLn('kol-vo strok nachinaiychixsia s zaglasnix bukv= ',Count);
Close(input);
End.