Pascal abc.создать массив, содержащий неповторяющиеся элементы заданного массива a[n].

Var
    _array : array[0..50] of integer; //объявляем массив
begin
    for i : integer  := 0 to 50 do //заполняем массив от нуля до 50-ти
        begin
        _array := i; //тут происходит присваивание
    end; 
end.

Удачи ;)