Помогите пожалуйста, писать на языке Паскаль

Program help;
Var k, l,x,y: integer;
Begin
readln(k,l);
readln (x,y);
if y>k*x+l then
write (точка лежит над прямой)
else
if ywrite (точка лежит под прямой)
else
write (точка лежит на прямой);
End.

Оцени ответ

Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!