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