Паскаль Герон Что тут ошибочно? program Geron; var a, b, c:

PASCAL ABC
Program area_of_treugolnik;
Var a,b,c,p,S:real;
begin
Writeln(Введите стороны треугольника);
readln(a,b,c);
p:=(a+b+c)/2;
S:=sqrt(p*(p-a)*(p-b)*(p-c));
if (a+bgt;c) and (a+cgt;b) and (b+cgt;a) and (agt;0) and (bgt;0) and (cgt;0) then writeln(S) else writeln(Вы ввели ошибочные данные);
end.
ИЛИ
Function rasst(a,b,c,d: Integer): Real;
begin
rasst:=Sqrt(Sqr(a-c)+Sqr(b-d));
end;
Var
x1,y1,x2,y2,x3,y3: Integer;
p: Real;
BEGIN
Writeln(Координаты 1 точки: );
Readln(x1,y1);
Writeln(Координаты 2 точки: );
Readln(x2,y2);
Writeln(Координаты 3 точки: );
Readln(x3,y3);
p:=(rasst(x1,y1,x2,y2)+rasst(x2,y2,x3,y3)+rasst(x3,y3,x1,y1))/2;
Writeln(Площадь треугольника = ,Sqrt(p*(p-rasst(x1,y1,x2,y2))*(p-rasst(x2,y2,x3,y3))*(p-rasst(x3,y3,x1,y1))):2:2);
END
PASCAL TURBO:
program ger;
uses crt;
var a, b, c:integer;
function geron(a,b,c:integer):double;
var p:double;
begin
p:=(a+b+c)/2;
geron:=p*(p-a)*(p-b)*(p-c);
end;
begin
write(Vvedite a =gt; );
readln(a);
write(Vvedite b =gt; );
readln(b);
write(Vvedite c =gt; );
readln(c);
writeln(geron(a,b,c));
readkey;
end.