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

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.