Заданы стороны двух сторон треугольников ABC и PMH, сравнить площади этих треугольников, используя формулу Герона. Что-то не получается.. помогите, пожалуйста..

uses crt;
var
a,b,c,p,m,h,s1,s2:real;
function square(x,y,z:real):real;
begin
p:=(x+y+z)/2;
square:=sqrt(p*(p-x)*(p-y)*(p-z));
end;
begin
clrscr;
write('vvedite a,b,c,p,m,h:');
readln(a,b,c,p,m,h);
s1:=square(a,b,c);
s2:=square(p,m,h);
if s1>s2 then writeln('s1>s2') else writeln('s2>s1');
readln;
end.

function square(x,y,z:real):real;
var p: real; { <--- Добавь вот это !!! }
begin
  p:=(x+y+z)/2;
  square:=sqrt(p*(p-x)*(p-y)*(p-z));
end;

Иначе ты просто затираешь введенное значение P (длину стороны) вычисленным полупериметром...

[offtop]
Кстати, klem4, помнишь наш разговор об использовании глобальных переменных? Вот не было бы все описано глобально, ошибку нашел бы компилятор, а так - у программиста голова должна болеть
[/offtop]

А что не получается? Похоже на правду, единственное, переменную p сделай локальной (в функции)

Volvo, опередил

СПАСИБО!!!

Все равно выдает ошибку 207
Invalid floating point operation
видимо, подкоренное выражение должно быть больше нулю, но вот как это сделать?

square:=sqrt(abs(p*(p-x)*(p-y)*(p-z)));

а при каких входных данных подкоренное выражение может быть меньше нуля