Какое число будет напечатано, после выполнения фрагмента программы?s := 0;for i :=10 to 15 do s := s+3;write (s);

18

Проходим по циклу от 10 до 15 включительно, то есть содержимое будет выполнятся 6 раз.

s изначально равен 0, мы же к нему 6 раз прибавляем 3.

6 * 3 = 18