СРОЧНО!!! 50 баллов!!! Нужно составить программы к эти заданием Паскаль. СРОЧНОО!!!

Первая задача:

var a:array[1..8] of integer=(2,-1,0,8,-5,10,5,-3);

b:array[1..8] of integer;

i:integer;

begin

for i:=1 to 8 do b[i]:=a[i]+5;

for i:=1 to 8 do writeln(b[i]); //выводим массив b.

end.

Вторая задача:

var a:array[1..8] of integer=(2,-1,0,8,-5,10,5,-3);

b:array[1..8] of integer;

i:integer;

begin

for i:=1 to 8 do b[i]:=a[i]*2;

for i:=1 to 8 do writeln(b[i]); //выводим массив b.

end.