Определить, можно ли построить треугольник с заданными длинами сторон

program treygolbnik;
var a,b,c:integer;
procedure Plowad;
var p,s:real;
begin
    p:=(a+b+c)/2;
    S:=sqrt(p*(p-a)*(p-b)*(p-c));
    writeln('Площадь треугольника = ',S:2:2);
end;
procedure Check;
begin
if (a<b+c) and (b<a+c) and (c<a+b) then
else
writeln('Треугольник выражен');
end;
begin
WriteLn('Введи длину сторон треугольника');
Write('a = '); Readln(a);
Write('b = '); Readln(b);
Write('c = '); Readln(c);
end.

program vershina;
var a,b,c:real;
procedure proverka;
begin
if (a<b) and (b<c) then
begin
a:= a*2;
b:= b*2;
c:= c*2;
end
else
begin
a:=abs(a);
b:=abs(b);
c:=abs(c);
end;
writeln('Итог: a= ',a:2:2,' b = ',b:2:2,' c = ',c:2:2);
end;
begin
WriteLn('Введите числа');
Write('a = '); Readln(a);
Write('b = '); Readln(b);
Write('c = '); Readln(c);
end.

program vershina;
var x1,x2,x3,x4,y1,y2,y3,y4,
l,l1,l2,p,p1,p2 : real;
begin
write('x1=');readln(x1);
write('y1=');readln(y1);
write('x2=');readln(x2);
write('y2=');readln(y2);
write('x3=');readln(x3);
write('y3=');readln(y3);
write('x4=');readln(x4);
write('y4=');readln(y4);
if x1<x2 then l1:=x1 else l1:=x2;
if x3<x4 then l2:=x3 else l2:=x4;
if l1>l2 then l:=l1  else l:=l2;
if x1>x2 then p1:=x1 else p1:=x2;
if x3>x4 then p2:=x3 else p2:=x4;
if p1>p2 then p:=p2  else p:=p1;
if l<=p  then write('пересекаются')
else write('не пересекаются');
readln;
end.