Разные типы данных
100 - целое число
100,0 - число с плавающей точкой
Написал пояснение к каждой строке
Var s,k: integer;
Begin
s := 0; // Зануляем S
for k := 4 to 8 do // Цикл от 4 до 8
s := s+6; // Происходит подсчёт заданных чисел из цикла
writeln(s); // Вывод ответа
End.
Поскольку возможен случай, когда даже 17 перчаток окажутся правыми, надо взять на одну больше, т.е. 18.
В подобных задачах ответ всегда большее из чисел плюс единица.