Домашняя работа на 23.04.15

Program One;
Var a,b,c:integer;
begin
writeln('Vvedite 3 chisla');
readln(a,b,c);
If (a<b+c) and (b<a+c) and (c<a+b) then writeln('F=1')
else writeln('F=0');
readln;
end.