Дан массив d(n).Заменить элементы массива кратные 3 на их удвоеное произведение.

program xxx;   var i, n : integer            d : array[1..30] of real; begin   write ('введите разметность массива n=');   readln(n);   writeln(''введите элементы массива d:');   for i:=1 to n do      readln(d[i]);   writeln ('исходный массив D:');   for i:=1 to n do     write(d[i]);   for i:=1 to n do     if d[i] mod 3 = 0 then d[i]:= 2 * d[i];   writeln ('полученный массив D:');   for i:=1 to n do     write(d[i]);   readln end.