Помогите решите олимпиадные задачи, пожалуйста!!!

[student523]

Олимиадные задачи 89/90 года на Pascal (Казань, областной уровень)
1. Задано прямоугольное поле m*n. Клетки этого поля случайно раскрашены в белый и черный цвет. Составить алгоритм, обнаруживающий все проходы по черным клеткам с одной стороны поля на противоположную. Ходы разрешается делать только по вертикали или горизонтали и только по клеткам черного цвета.
2. Считалка. по кругу расположены n человек. Начиная с некоторого из них, считаем по кругу, каждый m человек выбывает, затем круг смыкается. Например, для n=8 и m=4 выбывают в следующем порядке 4,8,5,2,1,3,7,6. Написать алгоритм, который печатает порядок выбывания для различных m и n.
3. Треугольник Паскаля. Составить программу, которая строит m>5 строк. Для 5 строк треугольник Паскаля выглядит так:
1
1 1
1 2 1
1 4 6 4 1
4. На экране даны 2 точки с произвольными координатами. Составить программу, которая строит между ними прямую линию, не используя при этом графические функции LINE, DRAW и т. п. Строить изображение точками.

[_Dmitry]

Четвертая задача

uses graph;
var gd,gm: Integer;

procedure _Line(x1,y1,x2,y2: integer);
var
  x,y,h: integer;
  k: double;
begin
  x:=0; y:=0;
  h:=1; {шаг между точками по X}
  k:=(y2-y1)/(x2-x1); {угловой коэффициент линии}
  while (x1+x) <= x2 do
    begin
      PutPixel(x1+x,y1+y,white);
      x:=x+h; y:=round(k*x);
    end;
end;

begin
 gd:=Detect;
 InitGraph(gd,gm,'c:\bp\bgi');
 if GraphResult <> grOk then halt;
 _Line(50,50,400,200);
 readln;
 CloseGraph;
end.

При вызове роцедуры должно быть: x2>x1, y2>y1