Катет прямоугольного треугольника равен проекции другого катета на гипотенузу. Найдите синус меньшего угла этого треугольника.

Var a:array [1..98] of integer; i:integer; begin for i:=1 to 98 do a[i]:= i + 2; for i:=1 to 98 do begin if (a[i] mod 3 = 0) or (a[i] mod 8 = 0) then writeln(a[i]); end; end.