На паскале заполнить массив из 10 элементов случайными числами от [0…

const n=10; var k: arrya[1… n] of integer; i, w: integer; beginrandomize; for i: =1 to n do begink[i]: =random (5); if (k[i]=1) then w: =w+1; end; write ('Кол-во единиц', w); end.