Написать программу позволяющую вычислить площадь и периметр треугольника с любыми сторонами. SUB PRIMER1

Program tr;

var

a,b,c,per,pl:extended;

begin

readln(a,b,c);

per:=a+b+c;

pl:=sqr((per/2-a)*(per/2-b)*(per/2-c));

Writeln('Площадь=' + pl+'Периметр='+per);

end;