После исполнения операторов 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