Программа подсчитывает количество пробелов в веденной с клавиатуры строке и добавляет 1 к этому значению, но в ней ошибка не k+1, а просто k в строчке writeln('В вашем предложении: ',k);
program Slova; //название программы
var
d:string; //объявление переменной d строка
i,k: integer; //объявление переменных i,k целые числа
begin // начало выполнения программы
write('Введите предложение:') ; //выводит строку на экран Введите предложение:
read(d); // записывает значение в переменную d введенные с клавиатуры
for i:=1 to length(d) do // for это цикл, i:=1 присваиваться значение переменной i единица, length(d) длина строки d то-есть количество в ней символов и цикл будет выполниться до тех пор, пока не переберет все символы в строке d
if d [i]=' ' then // если в строке d символ под номером i равен пробелу выполнять следующую строку↓
k:=k+1; //переменная k с каждым выполнением увеличиваться на 1
writeln('В вашем предложении: ',k+1); // выводит на экран строку
В вашем предложении: и значение переменной k увеличенное на 1
end. //конец программы
Program slova; - название программы
var - раздел описания переменных
d : string объявляем переменную, которая называется "d" с типо string(строка)
i, k : integer; объявляем еще 2 переменные с именами "i" и "k", тип у них целочисленный.
begin - начало исполнения программы (в данном случае)
write('Введите предложение'); - Вывод на экран сообщения: Введите предложение
read(d) - даем возможность пользователю ввести строку с клавиатуры, и сохраняем ее в переменную d
for i := 1 to length(d) do - цикл, который будет идти от 1, до длины строки (d), короче говоря, до последнего символа.
if (d[i] = ' ' then - условие, которое ищет пробел в предложении
k := k + 1; увеличиваем переменную на 1, если условие выполняется.
writeln('В вашем предложении:', k+1) вывод на экран сообщения "В вашем предложении", а затем вывод переменой k увеличенной на 1.