составить программу нахождения по формуле герона

program abc;uses crt;var a,b,c,P,S,P2:real;beginwriteln('Введите первую сторону: ');readln(a);writeln('Введите вторую сторону: ');readln(b);writeln('Введите третью сторону: ');readln(c);if (a+b<c) or (a+c<b) or (b+c<a) thenwriteln('Ваш треугольник не существует')elseP:=a+b+c;P2:=P/2;S:=sqrt(P2*(P2-a)*(P2-b)*(P2-c));writeln('Площадь = ',S);end.