X:=5; repeat x:= x-1 until x>0
Ответ:
Это паскаль
Объяснение:
х=0
х это 5
х будет уменьшаться до тех пор пока она будет больше нуля
ну то есть х станет нулём