Выведите три числа. если они могут быть длинами сторон прямоугольного треугольника выведите их в порядке возрастания и вычислите площадь полученного треугольника

Var     s,p: real;     i,j: integer;     a: array[1..3]of real; begin readln(a[1],a[2],a[3]); for i: =1 to 3 do   for j: =1 to 3 do   if a[j]> a[i] then     begin     p: =a[i];     a[i]: =a[j];     a[j]: =p     end; if a[1]+a[2]> a[3] then   begin   p: =(a[1]+a[2]+a[3])/2;   s: =sqrt(p*(p-a[1])*(p-a[2])*(p-a[3]));   for i: =1 to 3 do     write(a[i],' ');   writeln;   writeln('площадь треугольника: ',s);   end   else writeln('треугольник не существует'); end.

Объяснение:

Схе́ма Го́рнера (или правило Горнера, метод Горнера, метод Руффини-Горнера) — алгоритм вычисления значения многочлена, записанного в виде суммы мономов (одночленов), при заданном значении переменной. Метод Горнера позволяет найти корни многочлена[1], а также вычислить производные полинома в заданной точке. Схема Горнера также является простым алгоритмом для деления многочлена на бином вида {\displaystyle x-c}x-c. Метод назван в честь Уильяма Джорджа Горнера, однако Паоло Руффини опередил Горнера на 15 лет, а китайцам этот был известен еще в XIII веке.

// pascalabc.net 3.1, сборка 1172 от 19.02.2016 begin   var m: =readinteger('m=').tostring.tosortedset;   var n: =readinteger('n=').tostring.tosortedset;   if m.intersect(n).count> 0 then writeln('есть одинаковые цифры')   else writeln('нет одинаковых цифр') end. тестовые решения: m= 12345 n= 76840 есть одинаковые цифры m= 123456 n= 789087 нет одинаковых цифр а вот примерно так почему-то заставляют писать эту же в школах: // pascalabc.net 3.1, сборка 1172 от 19.02.2016 var   i,m,n: integer;   found: boolean;   sm,sn: string; begin   writeln('введите через пробел два натуральных числа: ');   read(m,n);   str(m,sm);   str(n,sn);   found: =false;   for i: =1 to length(sm) do       if pos(sm[i],sn)> 0 then begin           found: =true;           break           end;   if found then writeln('есть одинаковые цифры')   else writeln('нет одинаковых цифр') end. тестовое решение: введите через пробел два натуральных числа: 5354353 111211 нет одинаковых цифр