<span>program Metka; \\ Даем имя метке label M1;
</span> <span><span>\\ Даем имя переменной х </span>var x: shortint;
</span> <span><span>\\ Начало программы </span>begin
</span> <span><span>\\ Выводим текст с просьбой ввода числа </span>M1:writeln ('Введите x>100');
</span> <span><span>\\ Запрос на ввод числа </span>readln(x);
</span> <span><span>\\ Если введенное число <=100 то идем на М1 </span>if x<=100 then GOTO M1
</span> <span><span>\\ Конец программы </span>end.</span>
Два недочета 1) нет точки с запятой после <span>writeln ('x>100') 2) Неверное условие - должно быть <=, т.к. при х=100 условие х>100 не должно выполняться. </span>3) Желательно попросить ввести х>100 - слово Введите - не лишнее