Par Turbo Pascal

Kāds lūdzu varētu palīdzēt ar šādu uzdevumu: doti reāli pozitīvi skaitļi a, b, c, d. Noskaidrot, vai var konstruēt četrstūri ar šādiem malu garumiem - jāizveido šāda programma Pascal'ā.
Esmu ticis tik tālu, bet nekad nerāda, ka būtu tā, ka nevarētu izveidot četrstūri.

var a, b, c, d;
begin
write ('ievadiet 4 skaitļus ')
readln (a, b, c, d);
if (a+b+c >= d) then writeln ('cetrsturi var izveidot')
else
if (a+b+d >= c) then writeln ('cetrsturi var izveidot')
else
if (d+b+c >= a) then writeln ('cetrsturi var izveidot')
else
if (a+d+c >= b) then writeln ('cetrsturi var izveidot')
else
if (a+b+c <= d) then writeln ('cetrsturi nevar izveidot')
else
if (a+b+d <= c) then writeln ('cetrsturi nevar izveidot')
else
if (d+b+c <= a) then writeln ('cetrsturi nevar izveidot')
else
if (a+d+c <= b) then writeln ('cetrsturi nevar izveidot')
readln;
end.