Можно обойтись без массива:
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.
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.
