Dưới đây là code Pascal giải bài toán chọn vị kem theo yêu cầu của bạn. Chương trình xác định số cách chọn hai hương vị khác nhau sao cho không có hương vị nào trùng nhau.

```pascal
program Cream;

var
n, m, i, j, count: Integer;
flavors: array[1..2000] of Integer;

begin
// Đọc vào số lượng hương vị và số cặp
ReadLn(n, m);

// Đọc m hương vị
for i := 1 to m do
Read(flavors[i]);

count := 0;

// Duyệt tất cả các cặp hương vị
for i := 1 to m - 1 do
for j := i + 1 to m do
if flavors[i] <> flavors[j] then
Inc(count);

// Xuất kết quả
WriteLn(count);
end.
```

### Giải thích code:

1. **Khai báo biến**:
- `n`: Số hương vị (không sử dụng trực tiếp trong thuật toán).
- `m`: Số lượng kem.
- `flavors`: Mảng lưu trữ các hương vị.
- `count`: Số cách chọn cặp hương vị.

2. **Nhập dữ liệu**:
- Đọc số lượng hương vị và số kem từ bàn phím.
- Lưu hương vị vào mảng `flavors`.

3. **Tính số cặp khác nhau**:
- Sử dụng hai vòng lặp lồng nhau để duyệt qua tất cả các cặp hương vị và đếm số cặp khác nhau.

4. **Xuất kết quả**:
- In ra số lượng cách chọn hương vị.

Bạn có thể sao chép đoạn code này vào môi trường phát triển Pascal và chạy thử. Chúc bạn thành công!