Определить что выполняет данная программа

[anna_]

Turbo Pascal

Помогите пожалуйста:

Точно и однозначно сформулировать условие задачи, решение которой приведено ниже.

program  kr_4_zl;
type vector=array[1..100] of real;
var k,m,n:word;
i:integer;
a:vector;
begin
randomize;
write('сколько элементов в массиве?   ');
readln(n);
write('введите заданное число k (меньше числа элементов в массиве):  ');
readln(k);
for i:=1 to n do
begin a[i]:=-100+random*200.1;
write (a[i]:1.2:6)
end;
writeln;
m:=k;
i:=2*k;
while   i<=n  do
begin
if  a[i]<a[m] then m:=i;
i:=i+k;
end;
writeln('искомый элемент:  ',a[m]:12:6) end.

[Alex_FF]

Формулировка: Создать массив вещественных чисел из N элементов (N - вводится с клавиатуры). С помощью генератора случайных чисел заполнить его числами из промежутка [-100; 100.1]. Вывести на экран полученный массив. Найти минимальный элемент, меньший K-го (K - вводится с клавиатуры), среди элементов массива, начиная с номера 2K и с шагом +K. Вывести этот элемент.

[anna_]

спасибо большое!