var
i, j, x, c: integer;
begin
x:=?;
i:=1;
j:=45;
c:=0;
while i<>j do
if i<j then
begin
i:=i+x;
x:=x-1;
c:=c+1;
end
else
begin
j:=j+x;
x:=x-1;
c:=c+1;
end;
end.