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

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