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

program n_10;

var xa,ya,x,l,y,k,A:integer;

begin

writeln('Определение лежит ли точка A(xa,ya)на прямой y=k*x+l,на ней или под ней. ');

write('Введите xa»');

readln(xa);

write('Введите ya»');

readln(ya);

write('Введите k»');

readln(k);

write('Введите l»');

readln(l);

if (ya=k*xa+l) then

writeln('Точка лежит на прямой')

else if (ya>k*xa+l) then

writeln('Точка лежит над прямой')

else if (ya<k*xa+l) then

writeln('Точка лежит под прямой')

end.