Заданы координаты трех точек плоскости. эти точки не лежат на одной прямой? нужна программа в паскале.

var x1,x2,x3,y1,y2,y3: real; beginreadln(x1,y1); readln(x2,y2); readln(x3,y3); if (x3-x1)*(y2-y1)=(x2-x1)*(y3-y1) then writeln('lejat na pryamoi') else writeln('ne lejat na pryamoi'); end.

Pascal program matr; uses crt; var fl: char; a: array [1..100,1..100] of integer; i,j,m,n,mmax: byte; max: integer; label met; beginmet: clrscr; max: =0; writeln ('введите размерность матрицы nxm'); readln (n); readln (m); randomize; for i: =1 to n do beginfor j: =1 to m do begina[i,j]: =-50+random(101); write (a[i,j]: 4); end; {создание и вывод матрицы}writeln; end; writeln; for i: =1 to n do{нахождение максимального элемента}zfor j: =1 to m doif (a[i,j]> max) then beginmax: =a[i,j]; mmax: =j; end; for i: =1 to n dowrite (a[i,mmax]: 4); writeln; {вывод столбца}for i: =1 to n do {нахождение одинаковых элементов}for j: =1 to n doif (a[i,j]=max)and(j< > mmax) then begin  mmax: =j; write (a[i,mmax]: 4); end; writeln ('для продолжения нажмите любую клавишу,для выхода - "х"'); readln(fl); if (fl < > 'x') then goto met; end.

Как то так, сложная попалась var day,a,mon,i,i1,max: integer; {объявляем переменные} begin   readln(mon,day); {вводим месяц и день}   a: =day;   for i: =mon to 12 do begin       writeln;       write(i,': ');       case mon of{сколько дней в месяце}           9: max: =30;           10: max: =31;           11: max: =30;           12: max: =31;       end;             for i1: =a to max do begin           if a> max then break;           write(a,' ');           a: =a+7;       end;       a: =a-max;   end; end.