Составьте программу (блок схема и на Паскаль) Нахождения площади треугольника
по формуле Герона если извесны все три стороны

Vara,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 = ',S);End.