5.Tarray4. Дан массив из N элементов. Написать программу, уменьшающую все элементы…

var n, i: integer; A: array of integer; begin writeln ('Введите размерность массива: '); readln (n); SetLength (A, n+1); writeln ('Введите ', n, ' элементов массива: '); for i: =1 to n do readln (A[i]); for i: =1 to n do write (A[i] — 1:4); end.