Помогите с pascal,qbasic
Вычислить значение логического выражения

г)  (x*y<>4)и(y>x) ⇒(1*2<>4)and(2>1) ⇒true and true ⇒ trueд)  (x*y<>0)или(y<x) ⇒ (2*1<>0)or(1<2) ⇒true or true ⇒trueе) (не(x*y<1))и(y>x) ⇒ (not(1*2<1))and(2>1) ⇒not false and true ⇒ true and true ⇒true