var a,b,c,p,s:real;
begin
readln(a,b,c);
p:=a+b+c;
s:=sqrt(p/2*(p/2-a)*(p/2-b)*(p/2-c));
write('Периметр равен: ',p,' Площадь равна: ',s);
end.
Объяснение:
var a,b,c,p,s:real;
begin
readln(a,b,c);
p:=a+b+c;
s:=sqrt(p/2*(p/2-a)*(p/2-b)*(p/2-c));
write('Периметр равен: ',p,' Площадь равна: ',s);
end.
Объяснение: