Как-то так это все должно выглядеть (Если я еще не забыла ГОСТы)
Будет напечатана сумма элементов массива от 7 до 11.
62
Максимум двое. Я даже в интернете искал, когда учительница начинала что-то говорить
Var s:string; k,i: integer;
begin
writeln('Введите строку ');
readln(s);
k:=0;
for i:=1 to length(s) do
if s[i]='.' then k:=k+1;
writeln('Количество точек в строке = ',k);
<span>end.</span>