program tam_giac;
uses crt;
var a,b,c,cv,d:integer;
function kt(x,y,z:integer):boolean;
begin
if (x+y>z) and (x+z>y) and (y+z>x) then kt:=true else kt:=false;
end;
procedure dientich(x,y,z:integer);
var p,S:real;
begin
p:=(x+y+z)/2;
S:=sqrt(p*(p-x)*(p-y)*(p-z));
writeln(x,' ',y,' ',z,' dien tich ',S:0:2);
end;
BEGIN
clrscr;
write('Nhap chu vi: '); readln(cv);
d:=0;
for a:=1 to cv div 2 do
for b:=a to cv do
begin
c:=cv-a-b;
if (b<=c) and kt(a,b,c) then
begin
d:=d+1;
dientich(a,b,c);
end;
end;
if d=0 then write('Khong co 3 canh nao thoa man');
readln;
end.
