Написать программу в паскаль вычисляющую, какой их двух отрезков больше. Отрезки заданы координатами своих концов.

var x1a,y1a,x2a,y2a,L1,L2,x1b,y1b,x2b,y2b,:real;begin;readln(x1a);readln(y1a);readln(x2a);readln(y2a);readln(x1b);readln(y1b);readln(x2b);readln(y2b);l1:=sqrt(sqr(x2a-x1a)+sqr(y2a-y1a));l2:=sqrt(sqr(x2b-x1b)+sqr(y2b-y1b));if I1>l2 then writeln('Первый');if l1<l2 then writeln('Второй');if l1=l2 then writeln('Равны');end.