Разработка программы на языке pascal для определения взаимного расположения (принадлежности) точки и прямой. (нужно сделать мат.модель, блок-схему, программу и таблицу исполнения 25

1) var e: array[1..11]of integer;       i,k: integer; begin   for i: =1 to 11 do   begin     e[i]: =random(17)-15;     write(e[i],' ');     if e[i] mod 5=0 then k: =k+1;   end;   writeln;   write('kol-vo elem krat 5: ',k); end. 2) var e: array[1..8]of integer;       i,s,k: integer; begin   for i: =1 to 8 do   begin     e[i]: =random(20)+1;     write(e[i],' ');     if e[i] mod 2=1 then s: =s+e[i];     if e[i] mod 3=0 then k: =k+1;   end;   writeln;   writeln('summa nechet elem: ',s,' kol-vo elem krat trem: ',k); end. 3) var e: array[1..14]of integer;       i: integer; begin   write('nachalni massiv: ');   for i: =1 to 14 do    begin     e[i]: =random(21)-10;     write(e[i],' ');   end;   writeln;   write('izmeneni massiv: ');   for i: =1 to 14 do   begin     if e[i]< 0 then e[i]: =0                 else e[i]: =e[i]*(-1);   write(e[i],' ');   end; end.

Так будет проще ну по мне так это проще program m_1; var n, k1, x, max, min, i: integer; begin    writeln ('случайные числа из интервала [a; b]');   write ('введи минимальное значение интервала - ');   read (min);   write ('введи максимальное значение интервала - ');   read (max);   write ('введи кол-во случайных чисел - ');   read (n);   for i: =1 to n do   begin     x: =random(max-min+1)+min;     write (x,' ');   end; end.