Его бабушка плавала на пароходе Крузенштерн , а дедушка служил на судне, названном в честь

В честь Кристофора Колумба

Program Project1;
{$APPTYPE CONSOLE}
{$R *.res}
uses  System.SysUtils;
var a, b, c, x, y:integer;
begin
    write('Enter a: ');
    readLn(a);
    write('Enter b: ');
    readLn(b);
    write('Enter c: ');
    readLn(c);
    write('Enter x: ');
    readLn(x);
    write('Enter y: ');
    readLn(y);

    writeLn('a^2+(c+b)^2>=10: ', a*a + (c+b)*(c+b) >=10);
    writeLn('odd(c*(c+1)): ', (c*(c+1)) mod 2 = 1);
    writeLn('x xor (not y): ', x xor not y);
    writeLn('(x and y) or not(x): ', (x and y) or not x);
    readln;
end.

function len(A, B: (integer, integer)): real;

begin

 result := Sqrt((A[0] - B[0]) ** 2 + (A[1] - B[1]) ** 2);

end;

function geron(a, b, c: real): real;

begin

 var p := (a + b + c) / 2;

 result := Sqrt(p * (p - a) * (p - b) * (p - c));

end;

begin

 var (x1, y1) := ReadInteger2(); // или ReadReal2() на ваш выбор

 var (x2, y2) := ReadInteger2();

 var (x3, y3) := ReadInteger2();

 var a := len((x1, y1), (x2, y2));

 var b := len((x2, y2), (x3, y3));

 var c := len((x1, y1), (x3, y3));

 if a + b + c > max(a, max(b, c)) * 2 then

   Writeln(geron(a, b, c))

 else

   Writeln('треугольник не существует')

end.

Объяснение: