Дано число n (> 0) найти сумму 1-0.5+0.25-0.125+ паскаль абс работа на использование цикла вайл, фор или рипит буду блогодарен

14                                                                                                                       

var

s,n,i: integer;

begin

write('введите количество чисел');

readln(n);

s: =0;

for i: =1 to n do

s: =s+i*3;

writeln(s);

end.