Определить результат выполнения фрагмента программы s=0 for i: 0 to 5 do s=s+1 writeln(s)

Если посудить, то ни разу. Оператор присваивания - это двоеточие и равно + точки с запятой и другие важные элеенты, но если это опечатка, или просто не имеет значения, то вот решение:

s =  0
Входим цикл и повторяем команду s := s + 1; 6 раз (так как начиная с нуля до пяти, включая и ноль и пять, мы увеличиваем значение переменной цикла на единицу идя по ряду целых чисел)
i = 0 => s = 1
i = 1 => s = 2
i = 2 => s = 3
i = 3 => s = 4
i = 4 => s = 5
i = 5 => s = 6

Вывод:
6