Массив из 10 элементов. формируется случайным образом из интервала [-35,25].составьте программу умньшения всех элементов массива на 16.

Uses crt;
var a:array[1..10] of integer;
  i:integer;
begin
randomize;
for i:=1 to 10 do
  begin
    a[i]:=random(61)-35;
    write(a[i]:4);
  end;
  writeln;
for i:=1 to 10 do
  begin
    write(a[i]-16:4);
  end;
end.