Условие:
var k, S: integer;\nbegin\nk := 10;\nS := 0;\nwhile k < 120 do\nbegin\nS := S + k;\nk := k + 5\nend;\nwrite (s)\nend.

var k, S: integer;\nbegin\nk := 10;\nS := 0;\nwhile k < 120 do\nbegin\nS := S + k;\nk := k + 5\nend;\nwrite (s)\nend.

Внутри — полный разбор, аргументация, алгоритм решения, частые ошибки и как отвечать на каверзные вопросы препода, если спросит
Попробуй решить по шагам
Попробуй один шаг и продолжи в режиме обучения или посмотри готовое решение