После исполнения операторов s : = -12; k : = 90; s : = s + 10; met: k : = k + 10; if k < 200 then s : = 50 else s : = s + k; if k < 200 then goto met; переменная s получит значение

Программу надо сформатировать и тогда её структура будет видна лучше. а чтобы понять, как идет выполнение, в нужных точках ставим промежуточную выдачу - это называется "трассировкой". var   s, k: integer; label   met; begin   s: =-12;   k: =90;   writeln('s=',s,', k=',k);   s: =s+10;   writeln('s=',s); met:   writeln('метка met: ');   k: =k+10; write('k=',k);   if k< 200 then s: =50 else s: =s+k;   writeln(', s=',s);   if k< 200 then goto met;   writeln('результат: s=',s) end. результат выполнения программы: s=-12, k=90 s=-2 метка met: k=100, s=50 метка met: k=110, s=50 метка met: k=120, s=50 метка met: k=130, s=50 метка met: k=140, s=50 метка met: k=150, s=50 метка met: k=160, s=50 метка met: k=170, s=50 метка met: k=180, s=50 метка met: k=190, s=50 метка met: k=200, s=250 результат: s=250

Орел или решка - 2 значения - 2^1 т.е. 1 бит на испытание кол-во испытаний - 1000 значит информации 1000 * 1 бит = 1000 бит = 125 байт