Дан массив. Все его элементы:

const
  n = 10;
 
type
  mas = array[1..n] of integer;
 
var a: mas;
 
procedure print_mas(a: mas);
var i: integer;
begin
  for i := 1 to n do
    write(a[i], ' ');
  writeln;
end;
 
procedure init_mas(var a: mas);
var i: integer;
begin
  writeln('Исходный массив из ', n, ' элементов');
  for i := 1 to n do 
    a[i] := random(25);
end;
 
procedure dec_mas(var tmp: mas);
var i: integer;
begin
  writeln('Уменьшим все элементы на 20');
  for i := 1 to n do 
    tmp[i] := a[i] - 20;
end;
 
procedure multiple_mas(var tmp: mas);
var i: integer;
begin
  writeln('Умножим все элементы на последний: ', a[n]);
  for i := 1 to n do
    tmp[i] := tmp[i] * a[n];
end;
 
procedure inc_mas(var a: mas);
var i, b: integer;
begin
  write('B=');
  readln(b);
  writeln('Увеличим все элементы на ', b);
  for i := 1 to n do
    a[i] := a[i] + b;
end;
 
begin
  init_mas(a);
  print_mas(a);
  dec_mas(a);
  print_mas(a);
  multiple_mas(a);
  print_mas(a);
  inc_mas(a);
  print_mas(a);
end.