Определить,можно или нет построить треугольник из 3-х отрезков заданной длины — Pascal(Паскаль)

uses crt;
var a,b,c:real;
begin
clrscr;
writeln('Vvedite a,b,c');
readln(a,b,c);
if (a+b<=c)or(a+c<=b)or(b+c<=a) then writeln('Net')
else
writeln('da');
readln;
end.