Определите, что будет напечатано в результате выполнения программы var n, s: integer; begin n : = 0; s : = 0; while s*3 <= 340 do begin s : = s + 25; n : = n *2 end; write(n,s) end.

Можно подробнее?

В итоге выводятся две переменные. Так как n равна нулю - сколько её не умножай она не изменится. к s с каждым цкилом прибавляется 25 и цикл выполняется пока s *3 < 340, при s=125 цикл прервется. В итоге 0 и 125 и вывод на экран 0125

0125________________