Program tr;
var
a,b,c,per,pl:extended;
begin
readln(a,b,c);
per:=a+b+c;
pl:=sqr((per/2-a)*(per/2-b)*(per/2-c));
Writeln('Площадь=' + pl+'Периметр='+per);
end;
Program tr;
var
a,b,c,per,pl:extended;
begin
readln(a,b,c);
per:=a+b+c;
pl:=sqr((per/2-a)*(per/2-b)*(per/2-c));
Writeln('Площадь=' + pl+'Периметр='+per);
end;