Определить результат s=0 for k=6 to 12 do s= s+5 writeln(s)

По формуле (12-6)/1 +1= 7
s=s + 5 следовательно 0+5*7= 35

Если не обращать внимание на неверно построенный код то:

s = 0
Входя в цикл выполняем команду s := s + 5; 7 раз (от 6 до 12, включая и 6 и 12 => 12 - 6 + 1 = 7)
k = 6 => s = 5
k = 7 => s = 10
k = 8 => s = 15
k = 9 => s = 20
k = 10 => s = 25
k = 11 => s = 30
k = 12 => s = 35

Вывод:
35