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