Viết chương trình nhập vào 1 số n việc nhập kết thúc khi n = 0 đếm xem có bao nhiêu số nhập vào. In đếm

Mn giảng giúp em câu lệnh for to do với ạ
Giúp em câu lệnh while do
Cấu trúc rẽ nhánh
Biến mảng
Trong pascal với ạ

Em ko hiểu lắm cám ơn mn
Bt
Viết chương trình nhập vào 1 số n. Việc nhập kết thúc khi n = 0 đếm xem có bao nhiêu số nhập vào. In đếm
Viết chương trình nhập vào 1 số n. Việc nhập kết thúc khi n chia hết cho 3. Tính tổng các chữ số nhập vào in tổng