Петруха сама пиши!
А ты 13 решила можеш прислать программу
program pryamay;
var xa,ya,k,l:real;
begin;
if(k,l>-1+5)or(xa,ya>1+2)then write('Точка лежит под прямой')
if(k,l>-1+5)or(xa,ya>1+10)then write ('Точка лежит над прямой')
if(k,l>-1+5)or(xa,ya>1+4) then write ('Точка лежит на прямой')
end.
это 10