Площадь треугольника по формуле Герона

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-> '); readln(a);
  write('vvedite b-> '); readln(b);
  write('vvedite c-> '); readln(c);
  writeln(geron(a,b,c));
  readkey;
end.

program zadacha;
var a,b,c,p,s:real;
begin
writeln('введите a');
readln(a)
writeln('введите b');
readln(b);
writeln('введите c');
readln(c);
if (a+b>c) and (b+c>a) and (a+c>b) and (a>0) amd (b>0) and (c>0)then
begin
p:=(a+b+c)/2{не помню,по моему через полупериметр формула герона идёт}
s:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln('s= ',s:3:2)
end 
else
writeln('некорректные данные');
readln
end.

uses crt;
var p,a,b,c,s,r,error:real;
begin
clrscr;
writeln('vvedite storoni');
readln(a,b,c);
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
if (a>0) and (b>0) and (c>0) then writeln('Treugolnik suchestvuet')
else writeln('Treugolnik ne suchestvuet');
if (a>0) and (b>0) and (c>0) then writeln ('ploshad gerona = ' , s)
else writeln('nekorektnie dannie');
readln;
end.

uses crt;
var p,a,b,c,s,:real;
           begin
  write('Введите сторону a: ');readln(a);
   write('Введите сторону b: ');readln(b);
    write('Введите сторону c: ');readln(c);
  p := (a + b + c) / 2;
  s := sqrt(p * (p - a) * (p - b) * (p - c));
  if (a > 0) and (b > 0) and (c > 0) and (b+c>a)and (b+a>c)and(a+c>0) then 
    writeln('Треугольник существует')
  else writeln('Треугольник не существует');
  if (a > 0) and (b > 0) and (c > 0)and (b+c<a)and (b+a>c)and(a+c>0) then 
    writeln('Площадь герона= ', s:5:4)
  else writeln('Не верные данные');
end.

Program tri;
uses
CRT;
Var
S,P,A,B,C: Real;
 
Procedure AA;
Begin 
If A > 0 then
esle Repeat WriteLn('Введите положительное число A');
ReadLn(A);
Until A > 0;
end;
 
Procedure BB;
Begin
If B > 0 then
else Repeat WriteLn('Введите положительное число B');
ReadLn(B);
Until B > 0;
end;
 
Procedure CC;
Begin
If C > 0 then
else Repeat WriteLn('Введите положительное число C');
ReadLn(C);
Until C > 0;
end;
 
Begin
ClrScr;
WriteLn('Введите сторону А');
AA;
BB;
CC;
p := (A+B+C)/2;
S := sqrt(p*(p-a)*(p-b)*(p-c));
WriteLn(S:0:5);
End.

Program tri;
uses
  CRT;
 
Procedure ValueIn(str: string; var arg: real);
Begin
  WriteLn('Введите сторону ' + str);
  Repeat
    WriteLn('Введите положительное число ' + str);
    ReadLn(arg);
  Until arg > 0;
end;
 
Var
  s,p,a,b,c: Real;
Begin
  ClrScr;
  ValueIn('A',a);
  ValueIn('B',b);
  ValueIn('C',c);
  if (a+b > c) and (b+c > a) and (a+c > b) then
    begin
      p := (a + b + c)/2;
      s := sqrt(p*(p-a)*(p-b)*(p-c));
      WriteLn('Площадь треугольника: ',S:0:5);
    end
  else
    WriteLn('Треугольника с такими сторонами не существует.');
  Readln;
End.

Procedure ValueIn(str: string; var arg: real);
Begin
  Repeat
    WriteLn('Введите длину стороны ' + str + ':');
    ReadLn(arg);
  Until arg > 0;
end;

var a, b, c, p: Real;
begin
  Write('Длины сторон треугольника: '); ReadLn(a,b,c);
  p:=(a+b+c)/2;
  WriteLn('Площадь треугольника: ',SqRt(p*(p-a)*(p-b)*(p-c)));
end.

function Heron(a, b, c: Real): Real;
var p: Real;
begin
  p:=(a+b+c)/2;
  Heron:=SqRt(p*(p-a)*(p-b)*(p-c));
end;
var a, b, c: Real;
begin
  Write('Длины сторон треугольника: '); ReadLn(a,b,c);
  WriteLn('Площадь треугольника: ',Heron(a,b,c));
end.

function Heron(a, b, c: Real): Real;
var p: Real;
begin
  p:=(a+b+c)/2;
  Heron:=SqRt(p*(p-a)*(p-b)*(p-c));
end;
function IsTriangle(a, b, c: Real): Boolean;
begin
  IsTriangle:=(a>0) and (b>0) and (c>0) and (b+c>a) and (b+a>c) and (a+c>0);
end;
var a, b, c: Real;
begin
  Write('Длины сторон треугольника: '); ReadLn(a,b,c);
  if IsTrianle(a,b,c) 
  then WriteLn('Площадь треугольника: ',Heron(a,b,c))
  else WriteLn('Треугольник не существует');
end.

var a, b, c, p: Real;
begin
  Write('Длины сторон треугольника: '); ReadLn(a,b,c);
  p:=(a+b+c)/2;
  if (a>0) and (b>0) and (c>0) and (b+c>a) and (b+a>c) and (a+c>0)
  then WriteLn('Площадь треугольника: ',SqRt(p*(p-a)*(p-b)*(p-c)))
  else WriteLn('Треугольник не существует');
end.

If <какое либо условие> then <тут отсутствие команды вообще> 
else <ну а здесь уже следует команда какая-либо>

begin
  if False then else WriteLn('Почему бы и нет')
end.

begin
  if  not False then WriteLn('Почему бы и нет')
end.

program ST_4;
 
var a,b,c,h:integer;
p:real;
S:real;
 
begin
  
 write('Введите основание: ');
 readln(a);
 write('Введите высоту: ');
 readln(h);
 
  S := (a*h)/2;
    
writeln ('Площадь треугольника: = ',S);
 
  write('Длины сторон треугольника: ');
  readln(a,b,c);
  
  p := (a+b+c)/2; // Вспомагательная формула
  S := sqrt(p)*(p - a)*(p - b)*(p - c); // Формула Герона
 
writeln ('Площадь треугольника по формуле Герона: = ',S);
 
end.