if num = trunc(num) then writeln('Shalem')else writeln('Lo Shalem');
מה שעשיתי פה בעצם זה בדקתי האם המספר כולו שווה רק לחלק השלם של המס'כלומר ה trunc שלו.
ואם הוא שווה לו בעצם הכוונה היא שמה שעומד מאחורי הסוגרים הוא 0
אז אם אני רושם לו פקודהa:=trunc(a)
הערך החדש של a יהיה 4