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

s будет увеличиваться на 4, до тек пор, пока s не станет строго больше 35, при этом n будет увеличиваться на "1" каждый раз.
35 / 4 = 8(3), + 1 (т.к. есть остаток)