Пожалуйста посчитайте пожалуйста инфлрматика 8 класс

Program geom1;

Var a, b, c, p, s:real;

begin

Write( 'Введите длины сторон треугольника') ;

Readln(a, b, c) ;

p:=(a+b+c) /2;

S:=sqrt(p*(p-a) *(p-b) *(p-c)) ;

Write('Площадь треугольника ровна ', S) ;

End.