Створити програму для обчислення значення периметра довільного трикутника(pascal)​

Казахский орнамент это узор, состоящий из ритмически упорядоченных элементов, свойственных казахскому народному искусству.

Сегодня орнаменты встречаются в одежде, используются в оберегах, украшениях, интерьерах и аксессуарах. Во время ритуальных обрядов — свадеб, похорон или этнических праздников — все вокруг украшают орнаментами.

По особенностям ритма, композиции, симметрии различают типы орнамента: зооморфный, геометрический, растительный и космогонический.

Наблюдая за явлениями природы, тотемными животными и звездным небом, казахский народ создал сотни орнаментов.

Они отождествляли неведомые силы, загадочные и повседневные явления.

// PascalABC.NET 3.0, сборка 1164 от 11.02.2016
function gcd(a,b:integer):integer;
// Нахождение НОД
var
  i: longint;
begin
  while b <> 0 do begin
    a := a mod b;
    i := b; b := a; a := i
    end;
  Result:=a
end;

begin
  var a:=ReadInteger('a=');
  var b:=ReadInteger('b=');
  var nod:=gcd(a,b);
  if nod>1 then
    WritelnFormat('Дробь сократима: {0}/{1}={2}/{3}',
    a,b,a div nod,b div nod)
  else WritelnFormat('Дробь {0}/{1} несократима',a,b)
end.

Тестовое решение:
a= 23541
b= 335160
Дробь сократима: 23541/335160=59/840