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

program prog;uses crt;vara,b,c,s,p:real;beginwrite('a = ');readln(a);write('b = ');readln(b);write('c = ');readln(c);if (a>0) and (b>0) and (c>0)  thenbeginp:=(a+b+c)/2;s:=sqrt(p*(p-a)*(p-b)*(p-c));writeln('S = ',s:0:3);end;end.