Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

9 класс. Помогите решить задание на фото! Cрочно! Нужно написать программу для Pascal

Ответ оставил Гость

Var k, l, xa, ya, f:real;
begin
 read(k,l,xa,ya);
 f := k*xa + l;
 write(Точка лежит );
 if ya = f then
   write(на)
 else
 if ya > f then
   write(над)
 else
   write(под);
 writeln( прямой.)
end.