решите Оператор цикла с заданным числом повторений в Паскале имеет следующий формат:

While <выражение> do <оператор>;
For <параметр>:=<начальное значение> to <конечное значение> do
Repeat <оператор> until <выражение>​