100-элементный массив

const n=100; var a: array[1… n] of integer; i: integer; begin randomize; writeln ('Исходный массив'); for i: =1 to n do begin a[i]: =random (90)+10; write (a[i], '); end; writeln; writeln ('Преобразованный массив'); for i: =1 to n do if a[i] mod 3=0 then write (a[i] div 3, ') else write ('0 '); writeln; end.