Объясните, как написать эту программу. а то допереть не могу.

var a:array [1..10] of integer;

i:integer;

begin

write('Массив ');

for i:=1 to 10 do

begin

a[i]:=11-i;

if i=10 then write('a[',i,'] = ',a[i])

else write('a[',i,'] = ',a[i],', ')

end;

writeln;

write('Массив ');

for i:=1 to 10 do

begin

a[i]:=a[i]+1;

if i=10 then write('a[',i,'] = ',a[i])

else write('a[',i,'] = ',a[i],', ')

end

end.

Объяснение:

Сначала формируешь массив по формуле указанной в пункте 1 и выводишь его на экран.

Затем изменяешь массив по формуле указанной в пункте 2 и выводишь его на экран.