Введите с клавиатуры, массив B из 10 элементов цэлого типа, и выведите все элементы массива увеличенные в 5 раз.

begin
   for i:=1 to 10 do begin
       read (b[i]);
   end;
 for k:=1 to 10 do begin
       a[i]:= b[i]*5;
 write (a[i]);
  end;
 end.