четверки двумерного массива и ещё кое что, две задачки, одна математическая Опции

[Gooru]

срочно надо решение такой задачки:

Дан двумерный массив А, каждый элемент которого равен 0, 1, 5 или 11. Подсчитать в нем количество четверок (Аj,k, Аj,k+1, Аj+1,k, Аj+1,k+1) в каждой из которых все элементы различные.

Помогите чем можете, у меня уже мозги кипят, и вот ещё одна задачка до решения которой немогу додуматься:

Даны числа X, Y, Z, T – длины сторон четырехугольника. Вычислить его площадь, если угол между сторонами длиной X и Y – прямой.

[volvo]

Ну, а первая вот так решается:

const
  size = 10;
var
  a: array[1 .. size, 1 .. size] of integer;
  count: integer;

begin
  { ... }
  count := 0;
  for j := 2 to pred(size) do
    for k := 2 to pred(size) do
      if A[j,k] + A[j,k+1] + A[j+1,k] + A[j+1,k+1] = 17
      then inc(count);
  { ... }
end.