, есть вот такая программа, нужно сделать так, чтобы числа A не повторялись Program Номер15и2;

var
N, S, I, A: integer;

begin
S:= 0;
readln(N);
for I:= 1 to N do
begin
readln(A);
if (2020 mod A =0) and (A<>2020) then S:= S+1;
end;
writeln(S);
end.

123123258852    1   06.05.2021 11:41    1