Паскаль. массивы

В линейном массиве целых чисел b (40) заменить первые 10 элементов по формуле: b[i]=b[i]*3

Program gt;

var b:array[1 ... 40]of integer;

i:integer;

begin

randomize;

for i:=1 to 40 do

begin

b[i]:=random (100);

if (i<=10) then b[i]:=b[i]*3;

write (b[i],' ');

end;

end.

2)

задается с клавиатуры

program gt;

var b:array[1 ... 40]of integer;

i:integer;

begin

for i:=1 to 40 do

begin

read (b[i]);

if (i<=10) then b[i]:=b[i]*3;

end;

for i:=1 to 40 do

write (b[i],' ');

end.