Дан массив 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.