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

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