066536 / 53

program p53;
var
a,b,c,d,e,f,g,h:real;
f1,f2:real;
begin
writeln; writeln; writeln;
write('a='); readln(a);
write('b='); readln(b);
write('c='); readln(c);
write('d='); readln(d);
write('e='); readln(e);
write('f='); readln(f);
write('g='); readln(g);
write('h='); readln(h);
{Уравнение прямой f=0
f=(x-e)*(h-f)-(y-f)*(g-e)}

{Подставляем в F(x,y) точку (a,b)}
f1:=(a-e)*(h-f)-(b-f)*(g-e);
{Подставляем в F(x,y) точку (c,d)}
f2:=(c-e)*(h-f)-(d-f)*(g-e);

{Проверяем, имеют ли F1 и F2 одинаковые знаки}
if ((f1>0) and (f2>0)) or ((f1<0) and (f2<0))
then
writeln('BEPHO')
else
writeln('HE BEPHO');
{readln;}
end.