Даны длины отрезков a, b, c. составтье программу (delphi) вычисления периметра треугольника , если возможно его построение из данных отрезков.​

Var a: array[1..12]of real; i: integer; s1,s2,s3,s4: real; begin   for i: =1 to 12 do   begin   writeln('введите среднемесячную температуру за ',i,' месяц: ');   read(a[i]);   if i< =3 then s1: =s1+a[i] else   if (i> 3)and(i< =6) then s2: =s2+a[i] else   if (i> 6)and(i< =9) then s3: =s3+a[i] else   s4: =s4+a[i];   end;     writeln('средняя температуры зимних месяцев: ',s1/3);   writeln('средняя температуры весенних месяцев: ',s2/3);   writeln('средняя температуры летних месяцев: ',s3/3);   writeln('средняя температуры осенних месяцев: ',s4/3); end.

Var a,af,al: integer; begin   writeln('введите число');   readln(a);   if a< 10 then writeln('ответ: ',a)   else   if a< =99 then   begin   af: =a div 10;   al: =a mod 10;   if af> al then writeln('ответ: ',al) else writeln('ответ: ',af)   end   else   if a< =999 then   begin   af: =a div 100;   al: =a mod 10;   if af> al then writeln('ответ: ',al) else writeln('ответ: ',af)   end   else   if a< =9999 then   begin   af: =a div 1000;   al: =a mod 10;   if af> al then writeln('ответ: ',al) else writeln('ответ: ',af)   end   else   if a< =30000 then   begin   af: =a div 10000;   al: =a mod 10;   if af> al then writeln('ответ: ',al) else writeln('ответ: ',af)   end; end.