Есть ли ошибка в этом операторе цикла?
while a>b do
x:=x+1
a:=a-1

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