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.

uses crt;
var a,b,c,x:longint; p,s:real;
begin
clrscr;
   write('X=');readln(x);
   for a:=1 to x-2 Do 
      for b:=a to x-1 do
         begin 
            c:=x-a-b;
            if (a+b>c)and(a+c>b)and(b+c>a)and(c>=a)and(c>=b) then 
               begin
                  p:=(a+b+c)/2;
                  s:=sqrt(p*(p-a)*(p-b)*(p-c));
                  writeln(a,' ',b,' ',c,' dien tich ',s:0:2);
               end;
         end;
readln
end.