Цикл While имеет следующую общую структуру *While <оператор> do <условие>;While <условие> to <оператор>;While <условие> do <оператор>;While <начальное значение> to <конечное значение> do <​

While <условие> do <оператор>;

1) 15

Есть переменные n=3 и d=n*3. В цикле к переменной d добавляется значение i(от 1 до 3, сумма всех - 6), d=9+6=15. В конце выводится переменная d.

2) 204

Объявляются переменные k и m. Создается массив из 12 элементов, им присваивается значение. В цикле в if идет присвоение каждому элементу массива значения 17(не сравнение, так как сравнение "=="), после к переменной m прибавляется значение элемента массива(то есть всегда 17, так как в условии не сравнение). Имеем 12 элементов, каждый из которых больше предыдущего на 17. В конце выводится переменная m равная последнему элементу массива - 204.

Var s,k integer; //обозначили переменные.Тип  integer говорит что это целые числа.
Begin
s:=0; //Присваеваем s значение 0.Тоесть s у нас в начале программы ровно нулю.

for k:=3 to 8 do s:=(s+3)*k; //Тут k присваеваем значение 3.Поэтому, от 3 до 8 делаем " s:=(s+3)*k".Тоесть (8-3=5) 5 раз выполняем  s:=(s+3)*k.
Пишу ход выполения программы:
s:=(0+3)*3=9 // тут значение  s стало ровно 9.
s:=(9+3)*3=12*3=36  // тут значение  s стало ровно 36. И так далее.
s:=(36+3)*3=39*3=39*3=117
s:=(117+3)*3=120*3=360
s:=(360+3)*3=363*3=1089
write(s); // выводим значение рассчитанной s.
End. // конец программы.