Bài 2: DÃY SỐ. (5,0 điểm) Cho dãy gồm N số nguyên dương (N 1000). Hãy kiểm tra xem có bao nhiêu số khác nhau trong dãy. Tên file bài làm: BAI2.PAS Dữ liệu vào: Từ tệp DAYSO.INP gồm dòng đầu là số N, trong các dòng sau ghi các số của dãy, mỗi số cách nhau tối thiểu một dấu cách. Dữ liệu ra: Ghi ra tệp DAYSO.OUT dòng đầu ghi số nguyên K, là số lượng các số khác nhau trong dãy. Trong các dòng sau ghi K số khác nhau tìm được trong dãy, mỗi dòng ghi 15 số. Ví dụ: DAYSO.INP 10 5 8 12 5 6 8 5 8 4 9 DAYSO.OUT 6 5 8 12 6 4 9

uses crt;
var n,i,cnt,t,j,mark: integer;
    a: array[1..1000] of longint;
    exists: boolean;
begin
    assign(input, 'DAYSO.INP'); reset(input);
    assign(output, 'DAYSO.OUT'); rewrite(output);
    readln(n);
    cnt := 0;
    for i := 1 to n do
    begin
        read(t);
        exists := false;
        for j := 1 to cnt do
            if a[j] = t then
            begin
                exists := true;
                break;
            end;
        if not exists then
        begin
            inc(cnt);
            a[cnt] := t;
        end;
    end;
    mark := 0;
    writeln(cnt);
    for i := 1 to cnt do
    begin
        if mark = 15 then
        begin
            writeln();
            mark := 0;
        end;
        write(a[i], ' ');
        inc(mark);
    end;
end.