program vettori(input,output); var indice:integer; vett:array[1..10] of integer; b:integer; begin for indice:=1 to 10 do begin write('vett[',indice,']='); readln(vett[indice]); writeln end; for b:=1 to 10 do writeln(vett[b]) end.