Пожалуйста помогите срочно.

Question

Пожалуйста помогите срочно.

---

Answer 1

Program test;
var x, y:integer;
var f:boolean;
begin
x:=10;
y:=1;
f:=true;
repeat
x:=x div 3;
y:=y+1;
if x+y=4 then f:=false;
until (x=0) or not f;
writeln(x);
end.

Ответ
x = 1