Дана последовательность целых чисел а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 minmin then begin masa[i]: =mas[i]; end; for i: =1 to n do writeln (masa[i]); end. но она не выдает нужной последовательности, а понять где ошибка у меня не получилось : (