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

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