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

Площадь треугольника по 3м сторонам вычисляется по формуле Герона: , где p-полупериметр.
Тогда:

var a,b,c,p:real;
begin
  writeln('Введи длины сторон a, b и c');
  readln(a,b,c);
  p:=(a+b+c)/2;
  writeln('Площадь этого треугольника = ', sqrt(p*(p-a)*(p-b)*(p-c)));
end.