Напишите программу, определяющую, лежит ли точка а(ха, ya ): а) на прямой y = kx + l, над ней или под ней.

Var
x,y,l,k,w:real;
begin
writeln('Введите координаты точки');
read(x,y);
writeln('Введите k и l');
read(k,l);
w:=k*x+l;
If w=y then
writeln('Точка лежит на прямой')
else
If w<y then
writeln('Точка лежит над прямой')
else
writeln('Точка лежит под прямой');
end.