Составьте программу, которая позволяет ввести элементы массива a[1..10] с клавиатуры и выводит на экран количество отрицательных

var a: array [1..10] of integer; k,i: integer;begink:=0;for i:= 1 to 10 do beginwriteln (\'Введите \', i, \' элемент массива: \');read (a[i]);if a[i]<0 then inc(k); end;writeln(\'Отрицательные элементы массива под индексами: \');for i:= 1 to 10 do if a[i]<0 then write (i, \' \');writeln();write (\'Кол-во таких элементов = \',k);end.