Задание
Укажите число, которое будет выведено на экране в результате работы фрагмента программы.
program N;
var
S, x: integer;
begin
x := 345;
while x > 0 do
begin
write\( x mod 9\);
x := x div 9;
end;
end.