Даны натуральное число n и целые числа a1, a2,...an. Получить: а)а1-а2+а3-...; б)а1+аn; в)а1-а2.Пожалуйста, ребятушки, в паскале.Очень ваша помощь нужна;* 

var a:array[1..1000] of integer; n,i,s1,s2,s3:integer; s1:=0; read(n); for i:=1 to n do read(a[i]); for i:=1 to n do if i mod 2 = 1 then s1:=s1+a[i] else s1:=s1-a[i]; s2:=a[1]+a[n]; s3:=a[1]-a[2]; writeln(s1,' ',s2,' 's3); end.  

Можно обойтись без массива:   Program Meredith; var n,i,a,b,v,a1,a2,temp:integer;   begin   writeln('*   alphaues is thinking...   *');   write('Ok, введите число N =');   readln(n);   a:=0;   for i:=1 to n do     begin       write('Введите ',i,'-e число ');       readln(temp);       if i mod 2 = 1 then a := a + temp else a := a - temp;       if i = 1 then a1 := temp;       if i = 2 then a2 := temp;     end;   writeln('Задание а: ',a);   writeln('Задание б: ',a1+temp);   writeln('Задание в: ',a1-a2);   writeln('*******************************'); end.