Помогите написать программу!

1. Запишите следующие условия:

Числа

a и b имеют разную четность.

Одно

из чисел a

и b

положительно.

Одно из чисел a и b является квадратом

другого.

Точка

A (x, y) принадлежит

первому и второму квадранту.

Число

a не больше

среднего арифметического чисел b, c,

d.

Паскаль АВС:

Числа a и b имеют разную четность.

if (a mod 2) (b mod 2) then

Одно из чисел a и b положительно.

if (a >0) or (b >0) then

Одно из чисел a и b является квадратом другого.

if (a=b*b) or (b=a*a) then

Точка A (x, y) принадлежит первому или второму квадранту.

if (y >0) then

Число a не больше среднего арифметического чисел b, c, d.

if (a < = (b+c+d) / 3) then