Что за ошибка Invalid floating point operator? (Паскаль)

Задача - найти площадь фигуры, состоящей из трех треугольников (a,b,c,d,e,f - вещественные числа)

Код:

Program Z_3_5;
Uses crt;
Var a,b,c,d,e,f,g,z,s1,s2,s3:real;
Procedure s(q,w,e:real; Var s:real);
Var pp:real;
Begin
pp:=(q+w+e)/2;
s:=sqrt(pp*(pp-q)*(pp-w)*(pp-e));
End;
Begin
ClrScr;
Writeln('‚ўҐ¤ЁвҐ 7 ўҐйҐб⢥­­ле зЁбҐ«');
Readln(a,b,c,d,e,f,g);
S(a,b,f,s1);
S(f,c,g,s2);
S(e,d,g,s3);
z:=s1+s2+s3;
Writeln('Џ«®й ¤м ЇпвЁгЈ®«м­ЁЄ = ',z:1:2);
Readln;
End.

в общем и так поняла...

Gennady, за старание... )