Question

Прошу помогите с информатикой​

Answer 1

Возможно это:

var a,b,c,P,S:real;

Procedure Pr(a,b,c:real; var P:real);

Begin

P:=a+b+c;

End;

Function F(a,b,c:real):real;

var pp,S:real;

begin

pp:=(a+b+c)/2;

s:=sqrt(pp*(pp-a)*(pp-b)*(pp-c));

end;

Begin

Writeln('Vvedite a,b,c');

readln(a,b,c);

writeln('P=',P,'S=',S);

end.