Решить, ! даны стороны трёх треугольников. найдите сумму их периметров. определите процедуру для расчёта периметра треугольника. написать программу для pascal. с использованием подпрограмм-процедур.

Procedure Calc(const a,b,c: real; var p: real);
begin
  p := a + b + c;
end;

var a, b, c, p: real;
begin
  readln(a);
  readln(b);
  readln(c);
  Calc(a, b, c, p);
  writeln(p);
end.