Найти длины всех сторон треугольника

var
  x1, y1, x2, y2, x3, y3 : double;
  l1, l2, l3 : double;
 
Function L(x1, y1, x2, y2 : double) : double;
begin
  L := sqrt(sqr(abs(x1 - x2)) + sqr(abs(y1 - y2)));
end;
 
begin
  readln(x1, y1, x2, y2, x3, y3);
  Writeln('l1 = ', L(x1, y1, x2, y2):0:10);
  Writeln('l2 = ', L(x1, y1, x3, y3):0:10);
  Writeln('l3 = ', L(x3, y3, x2, y2):0:10);
  readln;
end.

var
  n, k : integer;
 
Function Del(n : integer) : integer;
var i, k : integer;
begin
  k := 0;
  for i := 2 to n - 1 do
    if n mod i = 0
    then begin
      k := k + 1;
      writeln(i);
    end;
  Del := k;
end;
 
begin
  readln(n);
  k := Del(n);
  writeln('Count = ', k);
  readln;
end.

2.
function Del(num: integer): integer;
var
i, cnt: integer;
begin
for i:=1 to num do
if num mod i=0 then
inc(cnt);
del:=cnt;
end;