Question

ПОМОГИТЕ ПОЖАЛУЙСТА СРОЧНО!!!!
Выполнить трассировку (прогон) программы и определить, чему будут равны значения переменных x и y после выполнения программы.
Program zadacha_2;
Var b:Real;
Begin
x:=104;
y:=20;
Repeat
x:=x/2;
y:=y+x
Until x<10;
Writeln (‘x=’, x);
Writeln (‘y=’,y);
End.
​