Давай посмотрим, как работает эта программа:
var s,k: integer;s и k, которые будут хранить целые числа.s:= 0;s присваивается начальное значение 0.for k := 5 to 12 do s := s + 7;k будет принимать значения от 5 до 12 включительно. Внутри цикла к переменной s каждый раз будет прибавляться 7.s:s (которое изначально равно 0) прибавят 7 ровно 8 раз, то итоговое значение s будет: 0 + 7 * 8 = 56.write(s);s.Ответ: 56