известны длины сторон треугольника a,b,c. напишите на языке Паскаль программу, вычисляющую площадь этого треугольника. пример входных данных: а=3 b=4c=5. пример выходных данных S=6.0

program test;var a, b, c:integer; s, p: real;begin write('Enter a: '); readln(a); write('Enter b: '); readln(b); write('Enter c: '); readln(c); p:=(a+b+c)/2; s:=sqrt(p*(p-a)*(p-b)*(p-c)); writeln('S = ', s); readln;end.

var

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

begin

  read (a, b, c);

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

  s := sqrt (p * (p - a) * (p - b) * (p - c)); //формула Герона

  writeln (s);

end.