Составить программу которая вводит с клавиатуры три числа a,b,c и определяет, могут ли эти числа быть длиннами треугольника

Program qq;
var a,b,c: integer;
begin
read(a);
read(b);
read(c);
if (a<b+c)and (b<a+c)and (c<b+a) then writeln('yes') else writeln('no');
end.