אתה צריך לעשות כך..
הרי N (המספר הטבעי שאתה מכניס) הוא נשאר ב-WHILE תמיד אותו N ולכן זו לולאה אינסופית. לכן התוכנית תמיד תוציא פלט של סיפרה אחת. מה שאומר שאם אתה צריך להכניס פלט בסעיף א כך שהתוכנית תהיה צודקת אתה חייב להכניס סיפרה אחת. בסעיף ב אתה צריך להביא דוגמה של כל מספר שהוא לא סיפרה אחת. בסעיף ג אתה פשוט חייב לעדכן את הטבעי N בתוך ה-WHILE כמספר שיורדת לו סיפרה כל פעם מחדש, זאת אומרת: n:=n div 10 זה קצת קשה לי לעשות את זה פה אבל את - n div 10 - תשים בסוגריים. אל תשכח להוסיף begin ו-end ל-while כי זה כבר מעל שורה אחת.