Алгоритм вычисления площади и периметра треугольника по известным длинам трех сторон

Итак, алгоритм прост:

Площадь = а * б * с

Периметр = а + б + с

Могу реализовать это же на паскале:

var a,b,c,s,p:integer;

begin

read(a,b,c);

s:=a*b*c;

p:=a+b+c;

Write(s,' ',p);

end.

Если мой ответ вам помог - выберите его лучшим :)                      

Заранее спасибо