Нужно перевести на язык Кумир. Оценю на максимум как только можно.
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 > c) and (c < n) and (d <= n); <br> write('Элементы, которые принадлежат отрезку [', c, ',', d, ']: ');
for i := c to d do
write(a[i]:4);
end.