Написать программу с использованием процедуры для вычисления периметра 2-ух треугольников — Pascal(Паскаль)

uses crt;
var a,b,c,p:real;
 
procedure Tr1;
begin
p:=a+b+c;
Write('P=',p:0:1);
end;
 
begin
ClrScr;
Writeln('TR(1): ');
Writeln('Введите стороны треугольника через пробел: '); 
Readln(a,b,c);
Tr1;
Writeln;
Writeln('TR(2): ');
Writeln('Введите стороны треугольника через пробел: '); 
Readln(a,b,c);
Tr1;
Readln;
end.