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

var a,b,c,p,s:real;beginwrite ('Введите длину стороны 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.