Question

Помогите решить, пожалуйста!
Даны стороны трёх треугольников. Найдите сумму их периметров. Определите процедуру для расчёта периметра треугольника.
Написать программу для Pascal. Задача с использованием подпрограмм-процедур.

Answer 1

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.

Answer 2

Спасибо большое!