Известны длины сторон треугольника a, b, c. Написать программку, вычисляющую площадь

//PascalABC.NET
//Версия 3.3, сборка 1634
begin
var (a,b,c):=ReadReal3;
var p:=(a+b+c)/2;
write('S=',sqrt(p*(p-a)*(p-b)*(p-c)));
end.

Пример:
3 4 5
S=6

Uses crt;
var a,b,c:integer;     
p:real;
begin       
writeln('Введите a'); readln(a);       
writeln('Введите b'); readln(b);       
writeln('Введите c'); readln(c);               
p := (a+b+c)/2;       
// (p(p - a)(p - b)(p - c))       
writeln('Площадь: ', sqrt(p*(p - a)*(p - b)*(p - c)));
end.