почему не работает программа в паскале. Не выводит ответ типа угроза

заглавие программки начинается с __ незнаю в чем компилируешь, может браниться.

убери излишние begin end в критериях, они не необходимы там

после readln

if ... then ... else END;

после каждого else if начинается, не нужны begin end, у тебя одно условие там. и одно деяние