אני צריך לכתוב תוכנית שוקלטת מספר תלת ספרתי והפלט צריך להיות
ספרת האחדות
ספרת העשרות
ספרת המאות
ובסוף את סוכם המספרים
תודה מראש

program;
var
x:integer;
n1,n2,n3,n4:real;
begin
writeln('enter number');
readln(x);
n1:= x div 100;
n2:= x mod 100;
n3:= n2 div 10;
n4:= n2 mod 10;
writeln('the hahadot:',n4);
writeln('the hasarot:',n3);
writeln('the mehot:',n1);
writeln('sechom:',n1+n3+n4);
end.

יש כאן טעות זה לא פעול

מישהו.....

מה לא עובד בדיוק? מה הפלט של השגיאה?

program demo;
var num,sum,n1,n2,n3,ezer:integer;
begin
write('Enter number: ');
readln(num);
n1:=num mod 10; {ספרת היחידות}
ezer:=num div 10; {משתנה עזר}
n2:=ezer mod 10; {ספרת העשרות}
n3:=num div 100; {ספרת המאות}
sum:=n1+n2+n3; {סכום הספרות}
end.