Выберите оператор цикла с предусловием:
Write<выражение> to <оператор>;
Writeln <выражение> goto <оператор>;
While <выражение> do <оператор>;

Zaika14102001    2   19.04.2020 21:45    43