для знатков pascal, напишите пожалуйста программу

Помогите составить программу, вычисляющею отношение сторон прямоугольников, полученных при разделении квадрата со стороной р, прямыми параллельными сторонам квадрата и точкой пересечения с заданными координатами (х, у)
ТОЛЬКО ПОЖАЛУЙСТА НАПИШИТЕ САМУ ПРОГРАММУ, А НЕ ПРИСЫЛАЙТЕ МНЕ ФОРМУЛЫ И Т. П.