Ответ:
Цикл с предусловием записывается с помощью while и do. Сначала проверяется логическое условие: если оно истинно, выполняется тело цикла; затем условие проверяется снова. Если условие ложно с самого начала, тело цикла не выполняется ни разу.
while x <= 10 do
begin
WriteLn(x);
x := x + 1;
end;
