Верны ли следующие равенства ? а) 334 =217 б)338=214

Var x1, y1, x2, y2, x3, y3, P: real;
function length(x1: real; y1: real; x2: real; y2: real): real;
begin
     length := sqrt(sqr(x1 - x2) + sqr(y1 - y2));
end;
begin
     read(x1, y1, x2, y2, x3, y3);
     P := length(x1, y1, x2, y2) + length(x3, y3, x2, y2) + length(x1, y1, x3, y3);
     writeln('Perimeter is ', P);
end.

#include <cmath>
#include <iostream>

float length(float x1, float y1, float x2, float y2)
{
    return pow((x1 - x2) * (x1 - x2) + (y1 - y2) * (y1 - y2), 0.5);
}
int main()
{
    float x1, y1, x2, y2, x3, y3, P;
    std::cin >> x1 >> y1 >> x2 >> y2 >> x3 >> y3;
    P = length(x1, y1, x2, y2) + length(x3, y3, x2, y2) + length(x1, y1, x3, y3);
    std::cout << "Perimeter is " << P;
}

Function leng(var x,y,x1,y1: real): real;
begin
  leng:=sqrt(sqr(x-x1)+sqr(y-y1));
end;

// основная программа
var x1,y1,x2,y2,x3,y3,p: real;
begin
  write('координаты вершин  x1 y1 x2 y2 x3 y3 через пробел:  ');
  readln(x1,y1,x2,y2,x3,y3);
  if (leng(x2,y2,x1,y1) + leng(x3,y3,x2,y2) = leng(x3,y3,x1,y1)) or
     (leng(x2,y2,x1,y1) + leng(x3,y3,x1,y1) = leng(x3,y3,x2,y2)) or
     (leng(x3,y3,x2,y2) + leng(x3,y3,x1,y1) = leng(x2,y2,x1,y1)) then
  writeln('точки лежат на одной прямой')
  else 
  begin
    p:=leng(x2,y2,x1,y1)+leng(x3,y3,x2,y2)+leng(x3,y3,x1,y1);
    writeln('периметр: ',p:7:3);
  end;
end.

координаты вершин  x1 y1 x2 y2 x3 y3 через пробел:  3 4 7 2 6 5
периметр:  10.797

координаты вершин  x1 y1 x2 y2 x3 y3 через пробел:  1 2 3 4 5 6
точки лежат на одной прямой