Решить на языке паскаль. определить , лежит ли точка с известными координатами на вертикальном отрезке прямой с заданными координатами концов. результаты вывести на экран.

program pryam;

var y1, y2, y3, x1, x2 : real;

begin

  writeln ('введите координату (у) верхней точки прямой');

  readln (y1);

  writeln ('введите координату (у) нижней точки прямой');

  readln (y2);

  writeln ('введите координату (х) точек-концов прямой');

  readln (x1);

  writeln ('введите координату (у) точки, принадлежность к прямой которой нужно определить');

  readln (y3);

  writeln ('введите координату (х) точки, принадлежность к прямой которой нужно определить');

  readln (x2);

if (y3< =y1) and (y3> =y2) and (x2=x1) then writeln (' принадлежит ')

else writeln (' не принадлежит ');

readln;

end.

Var    matrix: array[1..5,1..5] of integer;     i, j: integer;   sg: =0;   sp: =0; begin    writeln ('введите 25 чисел: ');       for i : = 1 to 5 do        for j : = 1 to 5 do            read (matrix[i,j]);       for i : = 1 to 5 do begin        for j : = 1 to 5 do            write (matrix[i,j], ' ');         writeln    end;   for i: =1 to 5 do  begin    for j: = 1 to 5 do    if j=i then sg: =sg+matrix[i,j];   end;   for i: =5 downto 1 do    begin    for j: =1to 5 do    if (i+j)=6 then sp: =sp+matrix[i,j]    end;     sp: =sp-matrix[3,3]; 1  writeln(sg,' ',sp); readln end.

Var a1, b1, a2, b2, c, i, n: integer;     s: array[1..10000] of integer; begin     read (n);     for i : =1 to n do          read (s[i]);     a1: =s[1];     for i : =1 to n do          if s[i]> a1 then          begin            b1: =i;             a1: =s[i];           end;     s[b1]: =-63999;     a2: =s[1];     for i : =1 to n do          if s[i]> a2 then          begin            b2: =i;             a2: =s[i];           end;     writeln (b1,' ',b2);     write (a1,' ',a2); end.я там еще какую-то коронку писал, уже не помню, но что-то про лучшее.