что в программе не так?

[maxim1592]

Для создания парковой зоны предполагается объединить три земельных участка. Определить, какова будет площадь зоны отдыха, если границы участков заданы (данные корректны).
Дано: a, b, c, d, e, f, g – границы участков.
Найти: S – суммарная площадь участков.
S = S1 + S2 + S3 , где S1, S2, S3 – площади участков.
Решение задачи сводится к трехкратному вычислению площадей треугольников по формуле Герона. Имеет смысл вычисление площади оформить в виде подпрограммы пользователя. Входные данные для подпрограммы: x, y, z – длины сторон треугольника, результат , где . Так как результатом выполнения подпрограммы является единственное значение (площадь), относящееся к простому типу, целесообразно использовать функцию пользователя
вот программа, что в ней не так????

program pr;
var a,b,c,d,e,f,g:real;
p1,p2,p3,s1,s2,s3,s:real;
begin
write('введите числа a,b,c,d,e,f,g =');
  readln(a,b,c,d,e,f,g);
    p1:=(a+b+f)/2;
    p2:=(f+c+g)/2;
    p3:=(e+g+d)/2;
s1:= sqrt(p1*(P1-a)*(p1-b)*(p1-f));
s2:= sqrt(P2*(P2-f)*(p2-c)*(p2-g));
s3:= sqrt(P3*(P3-e)*(p3-g)*(p3-d));
s:=s1+s2+s3;
   writeln ( 's = ' , s);
end.

[type_Oleg]

Сообщение от maxim1592

... целесообразно использовать функцию пользователя
вот программа, что в ней не так????

Не так в ней - то, что не используется эта самая функция пользователя.
Типа

function Geron(x,y,z:Real):Real;
// и т.д.

А в основной программе после readln(a,b,c,d,e,f,g); всего лишь

 writeln ( 's = ' , Geron(a,b,f)+Geron(f,c,g)+Geron(e,g,d));
end.

[maxim1592]

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

    program pr;
var a,b,c,d,e,f,g:real;
function Geron(x,y,z:Real):Real;
begin
write('введите числа a,b,c,d,e,f,g =');
  readln(a,b,c,d,e,f,g);
      writeln ( 's = ' , Geron(a,b,f)+Geron(f,c,g)+Geron(e,g,d));
end.

[ZX Spectrum-128]

http://programmersforum.ru/showthread.php?t=261617