Необходимо перевести на язык Кумир. Оценю на максимум как только можно.program

Необходимо перевести на язык Кумир. Оценю на максимум как только можно.
program DauMoH;

type
mas = array[1..1000] of integer;

var
a: mas;
i: byte;
n, c, d: integer;

begin
randomize;
write('Введите длину последовательности: ');
readln(n);
write('Оригинальный массив: ');
for i := 1 to n do
begin
a[i] := Random(100);
write(a[i]:4);
end;
writeln;
repeat
write('Введите начало и конец отрезка: ');
readln(c, d);
until (d gt; c) and (c lt; n) and (d lt;= n);
write('Элементы, которые принадлежат отрезку [', c, ',', d, ']: ');
for i := c to d do
write(a[i]:4);

end.