Помогите , пожалуйста !!! Контрольная горит

[matroskin]

1.Задана квадратная матрица Y(5,5).Определить,где больше четных элементов,выше или ниже главной диагонали.
> 2.Заполнить квадратную матрицу В(10,10)единицами в шахматном порядке,начиная с верхнего левого угла.Соседние клетки заполнить нулями.
> 3.Задан треугольник АВС длинами своих сторон. Определить его медианы(медиана,проведенная к стороне А равна 0,5(2в2+2с2-а2)).
> 4.Даны три одномерных массива А(15),В(10),С(20).Вывести на экран их значения в порядке возрастания.
> 5.Написать прогу для решения уравнения ху+х+у=1000.
> 6.Задана последовательность ,состоящая из нулей и единиц.Определить кол-во М-значных чисел,входящих в указанную последовательность,которые делятся на 2.
> 7.Мяч упал с высоты Н=243см и ,ударяясь о землю,отскакивает вновь,поднимаясь каждый раз на 2/3 высоты,с которой он упал.Определить,через сколько ударов мяч поднимется на высоту р=32см.

[DM_bite]

2.

program Xd;
const n=10;
var a:array [1..n,1..n] of integer;
    i,j: integer;
    begin
    for i:= 1 to n do
     for j:= 1 to n do
     begin
     a[i][j]:= i+j;
     if a[i][j] mod 2 = 0 then a[i][j]:= 1
     else a[i][j]:= 0;
     end;
     for i:= 1 to n do
      begin
      for j:= 1 to n do
       begin
       Write(a[i][j],'_');
       end;
       Writeln;
       end;
       ReadLn;
       end.

[DM_bite]

7.

program Xd;
 var h: real;
     k: integer;
begin
  k:=0;
  h:= 243;
  while h>=32 do
  begin
  h:= h*(2.0/3.0);
  inc(k);
  end;
  WriteLn(k);
  ReadLn;
end.

[S@fer]

5.

var x,y:integer;
begin
for x:=1 to 100 do
for y:=1 to 100 do
if (x*y+x+y=1000) then
begin
Edit1.Text:='X равен '+IntToStr(x);
Edit2.Text:='Y равен '+IntToStr(y);
end;

end;

[matroskin]

DM_bite,огромное спасибо за помощь !

[matroskin]

Все мозги вывернул, через 2 дня сессия ... Помогите .....