Var s,k: integer;
Begin
s := 0; // переменной s присваиваем начальное значение 0
for k := 3 to 8 do // цикл будет исполнен 6 раз (для k= 3, 4, 5, 6, 7, 8)
s := s + 6; // в теле цикла переменная S (изначально равная 0) каждый раз будет увеличиваться на 6. Т.е. в итоге будет 0+6+6+6+6+6+6=36
writeln(s); // выводим переменную s на экран - будет напечатано 36
End.
---------------------------------
В результате выполнения программы будет напечатано число 36