Помогите пожалуйста, очень срочно нужно решение

Полный код на паскале var     i: integer;     s: real; begin     s := 0;     for i := 12 to 2001 do         s := s + i;     writeln(s);         s := 1;     for i := 2 to 201 do         s := s * i / (i + 2);     writeln(s);         s := 1;     for i := 1 to 33 do         if i mod 3 = 0 then s := s * 2;     writeln(s);         s := 2;     i := 10;     while i <= 13 do     begin         s := s + 11;         i := i + 1;     end;     writeln(s); end. Вывод программы и ответы соответственно 2002935 0.000146320050724284 2048 46