\begin{array}{c} \color{#db1616}{\texttt{#Khoadang09}} \end{array}

`@`$\texttt{C++ :}$

#include <bits/stdc++.h>
using namespace std;
int main(){
    freopen("MARATHON.INP","r",stdin);
    freopen("MARATHON.OUT","w",stdout);
    int n; cin >> n;
    vector<int> a(n);
    for (itn&i:a) cin >> i;
    sort(a.begin(),a.end());
    a.erase(unique(a.begin(),a.end()),a.end());
    cout << a.size() << endl;
    return 0;
}

`@`$\texttt{Pascal :}$

var n, i, d: longint;
    a : array of longint;
    procedure sort(var a: array of longint);
        var i, j, res: longint;
     begin
    for i := 0 to length(a)-2 do
        for j := 0 to length(a)-i-2 do
            if a[j] > a[j+1] then
             begin
            res := a[j];
            a[j] := a[j+1];
            a[j+1] := res;
             end;
     end;
begin
    assign(input,'MARATHON.INP'); reset(input);
    assign(output,'MARATHON.OUT'); rewrite(output);
    readln(n);
    setlength(a, n);
    for i := 0 to n - 1 do read(a[i]);
    sort(a);
    d := 1;
    for i := 1 to n - 1 do
        if a[i] <> a[i-1] then inc(d);
    write(d);
    close(input);close(output);
end.