Составить программу в Pascal которая в предложении найдет количество слов начинающиеся на к

Var s:string; k,i:integer;
begin
write(Введите слово: ); readln(s);
k:=0;
for i:=1 to length(s) do
if s[i]=a then k:=k+1;
writeln(В слове ,s, буква а встречается ,k, раз);
end. переставь значения и все норм будет

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.