Запишите число, которое будет напечатано в результате выполнения программы.
var s, n: integer;
begin
s := 33;
n := 1;
while s > 0 do begin
s := s – 7;
n := n * 3
end;
writeln\(n\)
end.