Задача 2 Урок 16

Задача 2 Урок 16

Пользователь вводит 4 целых числа, считаем все их координатами на прямой, а именно:

первые два числа - начало и конце отрезка 1
вторые два - начало и конец отрезка 2

Задача: напишите подпрограмму, которая определит пересекаются ли данные отрезки.

type arr= array [1..2] of integer;
var a,b: arr;
function proverka(a1,b1:arr):boolean;
begin
  result:=true;
  if (a1[2]<b1[1]) or (a1[1]>b1[2]) then
    result:=false;
end;

begin
  readln(a[1],a[2],b[1],b[2]);
  if proverka(a,b) then
    write('peresekayutsa')
  else
    write('ne peresekayutsa');
  readln();
end.