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

[Gooru]

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

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

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

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

[НарКот]

Код

write('Введите символьную строку  ',st); read(st);
s:=0; d:=0;
for i:=1 to length(st) do begin
if st[i] = '(' then  inc(s);  
if st[i] = ')' then  inc(d);  
end;
if (s=d) and (s<>0) and (d<>0) then
writeln ('Число открывающихся и закрывающихся скобок одинаково.');
if (s=0) and (d=0) then writeln('Скобок нет');
if s<>d then
writeln ('Число открывающихся и закрывающихся скобок неодинаково');
s:=s; d:=d;

[mlc]

Код

...
writeln ('Число открывающихся и закрывающихся скобок одинаково.');
writeln ('Число открывающихся и закрывающихся скобок неодинаково');
..

Фигню ты какую то написал, а если строка будет = ")10+6(", тоже корректная
запись ?