Почему программа в Паскале не видит "." в программе:program lolipops;var s:string;n,k,i:integer;beginwriteln ('Введите слово');readln (s);I:=1;While i<=length(s) do begin If s[i]='.' thenk:=k+1;end;writeln (k);end.

Ты говоришь:
пока i < длины строки S делай:
если S с индексом i = "." то k++
Все
Ты не меняешь "i", он у тебя всегда 1й элемент смотрит)
Как должно быть:
------------------
While i<=length(s) do begin
If s[i]='.' then
k:=k+1;
inc(i);
end;
----------------------