Дан массив из 30 четырехзначных чисел. Числа кратные своему номеру заменить 1, в противном случае заменить 0

Const n=30;

var a:array[1 ... n] of integer;

i:integer;

begin

Randomize;

writeln ('Исходный массив:') ;

for i:=1 to n do begin

a[i]:=random (9000) + 1000;

write (a[i]:5) ;

end;

writeln;

for i:=1 to n do

if a[i] mod i = 0 then a[i]:=1 else a[i]:=0;

writeln ('Полученный массив:') ;

for i:=1 to n do write (a[i],' ') ; writeln;

end.

Пример (для n=10) :

Исходный массив:

2309 2867 6032 7114 7552 6798 8799 3607 2014 2876

Полученный массив:

1 0 0 0 0 1 1 0 0 0

Const n=30

var a:array of [1 ... n] of integer;

i, k, l:integer;

begin

randomize;

for i: = 1 to n do

a[i]:=random (9000) + 1000;

for i: = 1 to n do begin

if a[i] mod i = 0 then a[i]:=1 else a[i]:=0;

writeln (a[i]) ;

end;

end.