Даны три массива одинаковой размерности 5, в которых содержатся стороны треугольников ai, bi,ci. определите периметр pi и площадь si каждого треугольника по формуле герона. массивы a,b,c задать статически.

Program krasavitsya;
var t, a, b, c, p, s:real;
begin
for i:= 1 to 5 do
begin
read(a,b,c);
p:= a + b + c;
t = p / 2;
s = sqrt(t * (t - a) *(t - b)*(t - c));
writeln(p,'  ',s); 
end;
end.