Даны координаты двух точек – (x1, y1) (x2, y2). Значения вводятся последовательно. Известно, что двум точкам можно построить прямую и при этом только одну. Если прямая
имеет острый угол с осью X, выведите - "угол наклона - острый". Если прямая имеет тупой угол
с осью X, выведите - "угол наклона - тупой". Если прямая перпендикулярна оси х, выведите -
"прямая перпендикулярна оси х" Если угол наклона к оси х отсутствует, то есть равен нулю,
выведите - "прямая перпендикулярна оси y"

Const
  n = 10;

var
  a: array[1..n] of integer;
  i: integer;

function sum: integer;
var
  tmp, prev, cur, s, i: integer;
  flg: boolean;
begin
  s := 0;
  for i := 1 to n do
  begin
    flg := true;
    tmp := a[i];
    prev := 9;
    cur := 0;
    while tmp > 0 do
    begin
      cur := tmp mod 10;
      if cur > prev then
      begin
        flg := false;
        break;
      end;
      prev := cur;
      tmp := tmp div 10;
    end;
    if flg then inc(s);
  end;
  sum := s;
end;

begin
  writeln('Исходный массив: ');
  for i := 1 to n do
  begin
    a[i] := random(1000);
    write(a[i], ' ');
  end;
  writeln;
  writeln('ответ: ', sum);
end.

1. ромб, только стрелка вниз если условие сохраняется, стрелка в права, если условие нарушено, и слева приход при следующем цикле. (или наоборот) см рисунок

2. while i <= n do begin
        write ('(*) ');
        i := i + 1
    end;

3. потому что необходимо перебрать всезначения от 1 до N

4. постановка задачи;математическая формализация; построение алгоритма; составление программы на языке программирования; отлад­ка и тестирование программы; проведение расчетов и анализ полученных результатов.

5. описательная информационная модель записывается с какого-либо формального языка

6. отладка это испытание с исправлением ошибок, тест это окончательный прогон с конкретным значением данных для которых известен результат.