Решить практическую работу по информатике 9 класс в программе

опустим перпендикуляр на большее основания, получим прямоугольный треугольник, катет лежащий на против угла 30 равен половине гипотенузы, по т пифагора найдем часть большего основания

см вложение

var a: array [1..100] of real; i,j,n: integer; t: real; begin      n: =3;       for i : = 1 to n do            read(a[i]);       for i: =1 to n-1 do        for j: =i+1 to n do            if a[i]< a[j] then begin                  t: =a[i];                   a[i]: =a[j];                   a[j]: =t;             end;       for i: = 1 to n do            write(a[i],'' ); end.

универсальный метод через массивы. сейчас работает для трех элементов

var a,b,i,n: integer; begin      read(a,b);       for i: = a to b do            if i mod (3*4) = 0 then n: =n+1;       writeln(n); end.var n,i: integer; begin      for i: = 1 to 99 do begin            if (i div 10 < > 0) and ((i div 10 = n) or (i mod 10 = n)) then                  write(i,' ');       end; end.