В чем противоречивость Сталинской конституции 1936г ?

Добавьте комментарий к программе с оператором цикла

Я составила программу ,но не знаю правильно или нет ,проверьте пожалуйста и добавьте комментарий

program Metka;

label M1;

var x: shortint;

begin

M1:writeln ('x>100')

readln(x);

if x<100 then GOTO M1

end.