Выражение (смотрите вложение)

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.

Const nx=30; var i,j,n,m,q,r: integer; a: array[1..nx,1..nx] of integer; d,sn,min: real; begin write('введите размер массива '); readln(n); min: =100; for i: =1 to n do begin for j: =1 to n do begin a[i,j]: =random(100)-2; write(a[i,j]: 4); m: = m + a[i,j]; end; writeln; end; sn: = m/n/n; write(m: 9,sn: 9: 4); writeln; for i: =1 to n do begin for j: =1 to n do begin d: =abs(sn - a[i,j]); if d < min then begin r: =i; q: =j;   min : = d; end; end; end; write(a[r,q]: 4,r: 4,q: 4); end.