найти ближайшую к a степень тройки(паскаль)

Ответы:

var a, stepen1, stepen2: longint,

begin

clrscr,

readln(a),

stepen1:=1,

while stepen1&lt,= a do

 stepen1:=stepen1*3,

stepen2:=stepen div 3,

if (a-stepen2) &gt,= (stepen1-a) then writeln(stepen1)

 else

 writeln(stepen2),

end.