Оператор 1 – любой оператор Турбо Паскаля, включая составной оператор.

S1

S2

SN

While P do

Begin

Р S1;S2;…;SN;

End;

. . .

2)команда повторения с постусловием

Repeat S until P – выполняй S пока Р не станет истиной.

S

QBasic Ершол Turbo Pascal

Do нц Repeat

Серия серия серия

Р Loop until P кц при Р Until P;