Дана последовательность целых чисел а1, а2, ..an. Образовать новую последовательность, выбросив из исходной те члены, которые равны min (а1, а2, ..an).Составила такую программу: Program NoName;const n=5;var mas:array [1..n] of integer;masa:array [1..n] of integer;i,min:integer;Begin writeln(‘Введите целые числа’);For i:=1 to n do readln(mas[i]);min:=mas[i];For i:=1 to n do If min