известно, что во втором треугольнике сторона a равна 25 см, а стороны b и с 27 см и 25 см соответственно. в первом треугольнике каждая из сторон уменьшена на 4 см, по сравнению со вторым треугольником, а все три стороны третьего треугольника равны 22 см​

Совсем не но как минимум даст толчок

Объяснение:

Сам на паскале не пишу, но нашел программку:

var

   a,b,n,m,i: word;

begin

   write('Числовой промежуток: ');

   readln(a,b);

   write('Количество делителей не менее... ');

   readln(n);

   while a <= b do begin

       m := 0;

       for i:=1 to a do

           if a mod i = 0 then m := m + 1;

       if m >= n then begin

           write(a,' - ', m,' - ');

           for i:=1 to a do

               if a mod i = 0 then write(i,' ');

           writeln;

       end;

       a := a + 1;

   end;

end.

Вот как примерно выглядит на выходе:

Числовой промежуток: 21 44

Количество делителей не менее... 5

24 - 8 - 1 2 3 4 6 8 12 24

28 - 6 - 1 2 4 7 14 28

30 - 8 - 1 2 3 5 6 10 15 30

32 - 6 - 1 2 4 8 16 32

36 - 9 - 1 2 3 4 6 9 12 18 36

40 - 8 - 1 2 4 5 8 10 20 40

42 - 8 - 1 2 3 6 7 14 21 42

44 - 6 - 1 2 4 11 22 44

program max_elementarray ;

var i, max : integer ;

    a : array [1..10] of integer;

begin

    for i : = 1 to 10 do

          begin

              readln(a[i]);

          end;

    max : = a[1];

    for i : = 2 to 10 do

          if a[i]> max then max : = a[i];

    writeln('max element of array = ',max) ;

    readln ;

end.