program SOSAT;
 var lox,pisos,y,l,k,x: real;
begin
 writeln ('введите координаты');
 read (lox,pisos);
 writeln('Введите значение коэф');
 read (k,l);
 if pisos=k*lox+l then
 begin
 writeln ('Точка лежит на прямой');
 end
 else
 if pisos<k*lox+l then
 begin
 writeln('точка лежит под прямой');
 end
 else
 if pisos>k*lox+l then
 begin
 writeln('точка лежит под прямой');
 end
 end.