Даны натуральное число 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.