Увеличить значения всех элементов массива d [1..n] в 5 раз — Pascal(Паскаль)

const
n=20;
var
i:integer;
d:array [1..n] of integer;
begin
    
    for i:=1 to n do
    begin
     d[i]:=random(10);
     write(' ',d[i]);
    end;
    writeln();
  
    for i:=1 to n do
    d[i]:=d[i]*5;
    for i:=1 to n do
    write(d[i],' ');
    

end.