Viết chương trình bằng Free Pascal

Nhập một số nguyên n.Tính tổng các chữ số của số n.Mình chưa học câu lệnh while-do nên đừng viết câu lệnh này nhé!

GIÚP MÌNH VỚI !MÌNH CẦN GẤP

Viết chương trình giả sử một bài toán về việc kiểm tra trong lớp mình có bao nhiêu bạn thực hiện đúng cách phòng bệnh dịch COVID -19.

HELP ME ,MÌNH ĐANG CẦN GẤP !!!!!!!!!!