Даны действительные числа a , b , c , d , s , t , u

uses crt;
var
x,y : integer;
a,b,c,d,s,t,u : real;
begin
     clrscr;
     Write('введите  a,b,c,d,s,t,u');
     Readln(a,b,c,d,s,t,u);
     x:=-1;
     y:=2;
     if (s=0) and (t=0) then exit else
     if (s*a+t*b+u<>0) and (s*c+t*d+u<>0) then
                       if ((a>x) and (b>y) and (c<x) and (d<y))
                       or ((a<x) and (b<y) and (c>x) and (d>y))
                       then Writeln('Лежат на разных полуплоскостях')
                       else Writeln('Не лежат на разных полуплоскостях')
     else exit;
     readln;
     end.

uses crt;
var
  i,j,a,b,c,d,s,t,u:integer;
  f:boolean;
begin
  clrscr;
  writeln('write s'); readln(s);
  repeat
    writeln('write t'); readln(t);
    writeln('write u'); readln(u);
    if (t=0) and (u=0) then f:=true;
  until not f;
  repeat
    writeln('write a,b'); readln(a,b);
    writeln('write c,d'); readln(c,d);
    i:=s*a+t*b+u;
    j:=s*c+t*d+u;
    if (i=0) or (j=0) then f:=not f;
  until not f;
  if (i>0) and (j>0) or (i<0) and (j<0) then write('В одной полуплоскости')
    else write('В разных полуплоскостях');
  readkey
end.

uses crt;
var
  i,j,a,b,c,d,s,t,u:integer;
begin
  clrscr;
  writeln('write u'); readln(u);
  repeat
    writeln('write t'); readln(t);
    writeln('write s'); readln(s);
  until (t<>0) or (s<>0);
  repeat
    writeln('write a,b'); readln(a,b);
    writeln('write c,d'); readln(c,d);
    i:=s*a+t*b+u;
    j:=s*c+t*d+u;
  until (i<>0) or (j<>0);
  if (i>0) and (j>0) or (i<0) and (j<0) then write('В одной полуплоскости')
        else write('В разных полуплоскостях');
  readkey
end.

{ Даны действительные числа a ,b,c,d,s,t,u (s и t одновременно не равны
 нулю). Известно, что точки (a,b) и (c, d) не лежат на прямой ,
 заданной уравнением sx+ty+u=0. Прямая разбивает координатную
 плоскость на две плоскости. Выяснить, верно ли, что точки ( a,b ) и ( c,d )
 принадлежат разным полуплоскостям. }
uses 
  crt;
var
  a,b,c,d,s,t,u : real;
  z1,z2: real;
begin
  clrscr;
  Write('введите  a,b,c,d,s,t,u >');
  Readln(a,b,c,d,s,t,u);
  z1:= s*a+t*b+u;
  z2:= s*c+t*d+u;
  if z1*z2<0 then 
    Writeln('Принадлежат разным полуплоскостям')
  else
    Writeln('Принадлежат одной полуплоскости');
  readln;
end.