Помогите решить, пожалуйста!
Даны стороны трёх треугольников. Найдите сумму их периметров. Определите процедуру для расчёта периметра треугольника.
Написать программу для 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.