Помогите, пожалуйста, составить программу на турбопаскале.

[Smartbass]

Помогите, пожалуйста, решить следующую задачку.
Исходные данные:
- массивы X и Y, содержащие соответственно N и M чисел;
- вещественные константы A и B.
Для каждого сочетания значений аргументов X и Y вычислить значение функции F(x,y) по формулам: корень квадратный из выражения |sinX-eY|, если A<=|sinX|<=B;
3sin(1-log3Y), если |sinX|>B или |sinX|<A.
Преобразовать двумерный массив F(x, y) в одномерный, заменив каждый столбец суммой его элементов.
Заранее всем огромное спасибо!

[Deller]

371868291 - стучи, решим.