Помогите составить программу…

Ловите на паскале, если будет нужно на другом языке — пишите: var mass: Array[1… 10] of integer; i, k1, k2: integer; beginfor 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 beginwriteln (mass[i]); end; end.