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

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

убери лишние begin end в условиях, они не нужны там

после readln

if ... then ... else END;

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