Viết chương trình Pascal thể hiện thuật toán sau sử dụng câu lệnh while ... do