Даны два треугольника ABC (стороны a,b,c) и RLF (стороны r,l,f). Переменной S присвоить значение -1,если площадь треугольника ABC меньше или равна площади треугольника KLF, и значение +1 в противном случае. Площадь треугольника MNK со сторонами m,n,k вычисляется по формуле Герона. S= (p(p-m)(p-n)(p-k))^(1/2), где p- полупериметр треугольника MNK- Pascal(Паскаль)

uses crt;
var
a,b,c,k,l,f,s:integer;
p1,p2:real;
  begin
    writeln('vvedite a,b,c,k,l,f 4erez probel b celie 4isla');
    readln(a,b,c,k,l,f);
    p1:=(a+b+c)/2;
    p2:=(k+l+f)/2;
    if sqrt(p1*(p1-a)*(p1-b)*(p1-c))<=sqrt(p2*(p2-k)*(p2-l)*(p2-f)) then s:=-1
    else s:=1;
    writeln(s);
    readln;
  end.

Var
a,b,c,r,l,f: integer;
pa,pr: real;
Begin
Write('Введите cтороны: ');
Readln(a,b,c,r,l,f);
pa:=(a+b+c)/2;
pr:=(r+l+f)/2;
if pa*(pa-a)*(pa-b)*(pa-c)>pr*(pr-r)*(pr-l)*(pr-f)
then Writeln('+1')
else Writeln('-1');
Readln;
End.