Используя тип данных массив, напишите программу…

const N=200; vara: array [1… N] of boolean; x,y,kol: integer; begina[1]: =true; for x: =2 to N do a[x]: =true; for x: =2 to N div 2 dofor y: =2 to N div x doa[x*y]: =false; kol: =1; for x: =100000 to 100330 doif a[x] then begin writeln ('x[',kol,']=',x); //выводим данные в столбец inc (kol); end; readln; end.