השורה הראשונה

a:=all mod 10;
הפקודה של mod אומרת לו לקחת את השארית של המספר
כל מספר אשר תחלק אותו ב 10 ותקח את השארית שלו בעצם יתן לך את הספרה הראשונה
לדוגמא 1234:10=123.4 בעצם ה mod לוקח את מה שיש אחרי הנקודה
כלומר A=4

לאחר מכן נבצע
b:=(all mod 100) div 10;
מה שהוא עושה בעצם זה לוקח את הפקודה mod שהסברתי לך למעלה מה היא עושה
ולוקחת את 2 המספרים האחרונים כלומר 34 לאחר התרגיל 1234:100=12.34
לאחר מכן היא משתמשת בפקודה של div אשר לוקחת את המספר שלפני הנקודה
ואז משתמשת במספר 34 במספר לכל דבר ועושה לו עוד תרגיל שאומר 34:10=3.4
אבל הפעם היא לוקחת את המספר שלפני הנקודה ולא אחרי כמו בפקודה הראשונה (mod)
כלומר B=3

בשורה השלישית
c:=(all div 100) mod 10;
הוא לוקח את המספר 1234 מחלק ב 100 ולוקח את המספר שלפני הנקודה כלומר 1234:100=12.34 וכמו שאמרתי הוא לוקח רק את המספר 12 ואז עושה את התרגיל
12:10=1.2 ולוקח את הספרה 2 מכיוון שהיא נמצאת מאחורי הנקודה וזה מה שהפקודה mod עושה
כאן C=2

בשורה האחרונה הוא פשוט מחלק את כל המספר ב 1000 ולוקח את הספרה הראשונה
והיחידה לפני הנקודה שהיא 1
כלומר D=1

לאחר מכן פשוט הדפסתי את הסמפרים אחד אחרי השני : writeln(a,b,c,d)
כלומר writeln(4,3,2,1) שזה בעצם המספר ההפוך וזה מה שהתבקשת לעשות