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.