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

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку