Составить программу для вычисления величины S по легкой формулеВНИМАНИЕ! дам 40 баллов!

Составить программу для вычисления величины S по  легкой формуле

ВНИМАНИЕ!!!! помогите дам 40 баллов!!!!!!!!!!!!!!!!!

  • const Ei=2.71
    i:integer;
    S0, S1, S2, S3: real;
    begin
    S0:=0;
    for i := 1 to 30 do

    S1:=0;
    for i := 1 to 10 do 
    begin 
    S1 := S1*sin(exp( 2 * ln(i))); 
    end; 

    S2:=exp( S0 * ln(Ei));
    S3:=exp( S1 * ln(Ei));

    writeln('S= ',S2+S3);

    end.

  • end;

    S0 := S0+exp( 2 * ln(cos(i)));

    begin