Найти периметр треугольника

uses crt;
function Dlina(x1,y1,x2,y2:real):real;
begin
Dlina:=sqrt(sqr(x1-x2)+sqr(y1-y2));
end;
var x1,y1,x2,y2,x3,y3,a,b,c,p:real;
begin
clrscr;
repeat
writeln('Введите координаты вершин треугольника:');
readln(x1,y1,x2,y2,x3,y3);
a:=Dlina(x1,y1,x2,y2);
b:=Dlina(x1,y1,x3,y3);
c:=Dlina(x2,y2,x3,y3);
if (a<=abs(b-c))or(a>=b+c)
then writeln('Это не треугольник, повторите ввод.');
until (a>abs(b-c))and(a<b+c);;
p:=a+b+c;
write('Периметр=',p:0:2);
readln
end.

uses crt;
var squareArea, circleArea, squareSide, circleDiameter: real;
begin
    clrcsr;
    write('введите площадь квадрата');
    readln(squareArea);
    write('введите площадь круга');
    readln(circleArea);
    squareSide := sqrt(squareArea);
    circleDiameter := 2 * sqrt(circleArea / pi);
    if squareSide >= circleDiameter then
        writeln('круг поместится в квадрате')
    else
        writeln('круг не поместится в квадрате');
    readln
end.

uses crt;
procedure pr(var a:integer;p:integer;n:integer;var sum:integer);
begin
if n = 1 then sum:=a
else
 begin
  pr(a,p,n-1,sum);
  a:=a+p;
  sum:=sum+a;
 end;
end;
 
var s,a,p:integer;
    n:integer;
begin
clrscr;
write('Vvedite A0 : ');readln(a);
write('Vvedite p : ');readln(p);
write('Vvedite n : ');readln(n);
pr(a,p,n,s);
writeln('Sum = ',s);
readln
end.