Написать программу которая подсчитает колличество русских букв а в произвольно…

var a: string; i,k: integer; beginreadln (a); for i: =1 to length (a) do beginif pos (a[i],'АБВГДЕЕЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯабвгдеежзийклмнопрстуфхцчшщъыьэюя') <>0 then inc (k); end; writeln (k); end.