Сколько раз выполнится тело цикла? x:=4; repeat writeln (x); until true; 1 2 4

Задание

Сколько раз выполнится тело цикла?
x:=4;
repeat writeln \(x\); until true;