ПОМОГИТЕ НАПИСАТЬ ПРОГРАММУ В ПАСКАЛЕ 12 ВАРИАНТ
срочно

//PascalABC.NET 3.2 сборка 1318Var  ar:array of integer;  i,n,min,k:integer;beginreadln(n);setlength(ar,n);min:=integer.MaxValue;for i:=0 to n-1 do  begin    readln(ar[i]);    if min>ar[i] then min:=ar[i];  end;for i:=0 to n-1 do  if ar[i]=min then inc(k);writeln(k);end.Пример ввода:3121Пример вывода:2