Оператор цикла с предусловием имеет вид

üWHILE условие DO оператор

Такая конструкция позволяет легко организовывать итерационные циклы (циклы с заранее неизвестным числом повторений). Оператор, входящий в тело цикла выполняются до тех пор, пока истинно условие. Для примера решим задачу 4 – вычислять и печатать Y=Х2до обнаружения первого Х=0. Программа приведена ниже.

readln(x);{Y=Х2}

while x<>0 do begin

writeln(х, х*x);