program triunghi;
Uses crt;
var a,b,c,perimetrul,aria: Integer;
begin
clrscr;
Write("a= ");ReadLn(a);
Write("b= ");ReadLn(b);
Write("c= ");ReadLn(c);
perimetrul:=a+b+c;
WriteLn("Perimetrul = ",perimetrul);
perimetrul:=perimetrul/2;
aria=sqrt(perimetrul*(perimetrul-a)*(perimetrul-b)*(perimetrul-c));
WriteLn("Aria= ",aria);
Readkey;
end.