Program yclovie;
Var pol:Byte;
Begin
 WriteLn('Введите ваш пол: Муж(0) Жен(1) ');
 ReadLn(pol);
 If pol=1 Then WriteLn('Тебе нравятся мальчики, альфа самцы :)')
          Else WriteLn('Тебе нравятся девочки, мужик');
end.