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.