Составить программу на паскале. Даны стороны двух треугольников. Найти сумму их периметров и сумму площадей. Определить процедуру для расчета периметра и площади треугольника по его сторонам

Var z, x, c:real;

procedure Perimetr (a, b, c:real) ;

var p:real;

begin

p:=a+b+c;

writeln ('P=', p) ;

end;

procedure Ploshad (a, b, c:real) ;

var s, p:real;

begin

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

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

writeln ('S=', s) ;

end;

begin

writeln ('Write first dа ta:') ;

readln (z, x, c) ;

Perimetr (z, x, c) ;

Ploshad (z, x, c) ;

writeln ('Write second dа ta:') ;

readln (z, x, c) ;

Perimetr (z, x, c) ;

Ploshad (z, x, c) ;

readln;

end.