Помогите пожалуйста.Запишите число,которое будет напечатано в результате исполненья

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