Найти сумму элементов целочисленного массива

var k: array[1… 10] of integer; var s: real; var i: integer; beginfor i: =1 to 10 do begink[i]: =round (10*random+3); s: =s+k[i]; end; write ('Сумма массива=', s); writelnend. Должно работать, проверьте.