Вычислите, ответ округлите до 0,001.
tg15°*√sin65°/cos28°

Program ok; var a,i,n,proiz: integer; begin readln(n); proiz: =1; for i: =1 to n do  begin read(a); if(a< 0) then proiz: =proiz*a; end; write(proiz); end.