Задано значение строковой переменной. Определить сколько раз буква "к" встречается в данной строке.

Данная программа написана для Pascal:var s:string;      i,k:integer;beginwriteln('введите текст');readln(s);k:=0;for i:=1 to length(s) doif s[i]='к' then k:=k+1;if k=0 then writeln('ни разу') else writeln(k);end.