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

Ловите на паскале, если будет нужно на другом языке - пишите:
var mass: Array[1..10] of integer;
    i, k1, k2: integer;
begin
for i := 1 to 10 do begin
  write('Введите ', i, ' элемент массива: ' );
  readln(mass[i]);
end;
write('Введите k1 и k2: ' );
readln(k1, k2);
writeln('');
for i := k1 to k2 do begin
writeln(mass[i]);
end;

end.