program zad1;

uses crt;

const n=5;

var

tab:array [1..n] of integer;

tab1:array[1..n] of integer;

i,licznik,suma:integer;

begin

randomize;

for i:=1 to n do

begin

tab[i]:=random(10);

writeln(tab[i]);

end;

for i:=2 to n-1 do tab1[i]:=tab[i-1]+tab[i+1];

tab1[1]:=tab[ 2];

tab1[n]:=tab[n-1];

writeln('nowa tablica');

for i:=1 to n do

writeln(tab1[i]);

readln;

end.