Question

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

Answer 1

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

Удачи ;)