program DifferentNumbers;
var
  arr: array [1..100] of integer;
  n, i, j: integer;
  isDifferent: boolean;
begin
  write('Nhap so phan tu cua day: ');
  readln(n);
  
  // Nhập dãy số
  for i := 1 to n do
  begin
    write('Nhap phan tu thu ', i, ': ');
    readln(arr[i]);
  end;
  
  // In các số khác nhau
  writeln('Cac so khac nhau trong day: ');
  for i := 1 to n do
  begin
    isDifferent := true;
    for j := 1 to i - 1 do
    begin
      if arr[i] = arr[j] then
      begin
        isDifferent := false;
        break;
      end;
    end;
    if isDifferent then
      write(arr[i], ' ');
  end;
end.