Сколько раз исполнится цикл?
i:=10;
repeat i:=i-2;
until i>6

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