На Паскале. Изменение значений некоторых элементов. . Прибавить к каждому элементу число 25.

program pribav;const n=5;type mas=array[1..n] of integer;var a,b : mas; i : integer;begin write('ââåäèòå ìàññèâ'); for i:=1 to n do    readln(a[i]);        writeln('èñõîäíûé ìàññèâ:');       for i:=1 to n do          writeln(a[i]);                         for i:=1 to n do                  b[i]:=a[i]+25;                    writeln('íîâûé ìàññèâ:');                      for i:=1 to n do                        writeln(b[i]);end.