Дано натуральное число n и последовательность а1, а2, натуральных чисел, заданных случайным образом из диапазона [3; 100]. умножить все элементы этой последовательности, кратные 3, на третий элемент. решить для n=10 (написать на паскале).

const

  n=10;

var

  a:array [1..n] of longint;

  i:integer;

begin

  randomize;

  for i:=1 to n do

    begin

       a[i]:=random(98)+3;

       write (a[i]:4);

    end;

  writeln;

  for i:=1 to n do

     begin

         if a[i] mod 3 = 0 then a[i]:=a[i]*a[3];

         write (a[i]:6);

     end;

  writeln;

  readln;

end.