определите что будет выведено в результате выполнения следующей программы
var n, s:integer;
begin
n:=0;
s:=0;
while s<=35 do
begin
n:=n+1;
s:=s+4;
end;
write (n);
end.