Помогите пожалуйста исправить ошибку «неверная вещественная операция (7.PAS,…

Ошибка в том что натуральный логарифм (-1) не существует program summa; uses crt; var n,i: integer; s: real; p1,p2: integer; begin clrscr; writeln ('vvedite n'); readln (n); s: =0; p1: =-1; p2: =2; for i: =1 to n dobegins: =s+p1/p2; p1: =-p1; p2: =p2*2; end; writeln ('s=', s); readln; end.