Функции, процедуры, модели (2)

function S(a:integer):=a.ToString.ToCharArray.Sum(c->strtoint(c));
begin
  var a:=ReadInteger('Введите первое число:');
  var b:=ReadInteger('Введите второе число:');  
  if S(a)=S(b) then writeln('суммы цифр чисел равны')
    else Writeln(S(a)>S(b)? Format('сумма цифр числа {0} больше суммы цифр числа {1}',a,b):Format('сумма цифр числа {0} больше суммы цифр числа {1}',b,a));
end.

type Tpoint=record
      x,y:real;
     end; 
var
  Pt:array[1..3] of Tpoint;
  a,b,c,p,s:real;
function TriangeExists(a,b,c:real):boolean:=(a+b>c) or (a+c>b) or (c+b>a);
function SideLen(a,b:Tpoint):real:=sqrt(sqr(a.x-b.x)+sqr(a.y-b.y));
  
begin
  for i:integer:=1 to 3 do begin
    writeformat('Вершина {0}:',i);
    read(Pt[i].x,Pt[i].y);
  end;
   a:=SideLen(Pt[1],Pt[2]);b:=SideLen(Pt[1],Pt[3]);c:=SideLen(Pt[2],Pt[3]);
   p:=(a+b+c)/2;
   s:=sqrt(p*(p-a)*(p-b)*(p-c));
   if TriangeExists(a,b,c) then 
        writelnformat('координаты вершин: A({0},{1}); B({2},{3});C({4},{5})-треугольник существует. длины сторон:{6:0.####}, {7:0.####}, {8:0.####}; S={9:0.####}',
          Pt[1].x,Pt[1].y,Pt[2].x,Pt[2].y,Pt[3].x,Pt[3].y,a,b,c,s) else
        writeln('треугольник не существует!')
end.