Цикл Предусловием Языке Паскаль

Оператор цикла с параметром for удобен, когда число повторений действий заранее известно. Однако часто приходиться решать задачи, в которых число повторений тела цикла заранее неизвестно и определяется только в ходе выполнения цикла. В этом случае применяют цикл с условием. В языке Паскаль (Pascal) имеется две разновидности цикла с условием:
1) цикл с предварительным условием -условие цикла проверяется перед выполнением тела цикла;
2) цикл с последующим условием - условие цикла проверяется после выполнения тела цикла.
Остановимся на цикле с предварительным условием, или с предусловием.
Цикл с предусловием-это цикл, который повторяется до тех пор, пока условие истинно. Для реализации цикла с предусловием в языке Паскаль (Pascal) используется оператор while, который имеет следующий вид: while < условие > do < оператор >; Если тело цикла состоит из нескольких операторов, необходимы операторные скобки begin. .end.
Составим программу, которая определяет, сколько слагаемых должно быть в сумме
последовательных чётных чисел (2+4+6+8+...), чтобы эта сумма оказалась больше некоторого заданного натурального числа n(n>=2), и выводит на экран результат - количество слагаемых.
program kol_slag;
var i, sum, n, x: integer;