Одна из сторон треугольника больше другой на 8 сантиметров, а угол между ними равен 120 градусам. Найдите периметр треугольника, если длин третьей стороны равна 28 см

uses crt;
var min,i:integer;
a:array[1..10] of integer;

begin randomize;
for i:=1 to 10 do a[i]:=random(91)-40;
for i:=1 to 10 do write(a[i],' ');
min:=a[1];
for i:=1 to 10 do if min > a[i] then min:=a[i];

for i:=1 to 10 do if a[i]>0 then a[i]:=min;
writeln;
for i:=1 to 10 do write(a[i],' ');

readln;
end.