{programmer:mogtaba amirzade 
url http:\\www.ifjam.com
}
program p24(input,output); {45}
{
******************** proble that tiangle will be make ****************
programmer:amirzadeh date:1382/08/29
}
var
i,sn:integer;
a,b,c,pn:real;
begin
randomize;
sn:=0;
for i:=1 to 1000 do
begin
a:=1+trunc(100*random);
b:=1+trunc((100-a)*random);
c:=100-(a+b);
if(a+b>c)and(a+c>b)and(b+c>a)then
begin
writeln('a=',a:1,' b=',b:1,' c=',c:1);
writeln('-----------------------------------------');
sn:=sn+1;
end;
end;
pn:=sn/1000;
writeln(pn);
readln
end. 
program p30(input,output);
var
a,b,c:real;
function mt(a,b,c:real):boolean;
begin
write('enter a,b,c >');
readln(a,b,c);
if ((a+b)>c)and((a+c)>b)and((b+c)>a) then
mt:=true
else
mt:=false;
end;
begin {program}
writeln(mt(a,b,c));
readln
end.