Объяснение:
program kek;
var
l1, r1, l2, r2, x: Integer;
begin
read(l1, r1, l2, r2, x);
if ((x-l1)*(r1-x) >= 0) then writeln('Первый отрезок.');
if ((x-l2)*(r2-x) >= 0) then writeln('Второй отрезок.');
end.
Объяснение:
program kek;
var
l1, r1, l2, r2, x: Integer;
begin
read(l1, r1, l2, r2, x);
if ((x-l1)*(r1-x) >= 0) then writeln('Первый отрезок.');
if ((x-l2)*(r2-x) >= 0) then writeln('Второй отрезок.');
end.