"כתוב תוכנית שתקלוט שני מספרים שלמים חיוביים למשתנים A ו-B. התוכנית תבדוק אם A קטן מ-B. אם כן-התוכנית תדפיס את מכפלת המספרים שבינהם. אם לא-התוכנית תדפיס את סכום המספרים שבינהם. "
הייתה לי ת'שאלה הזו במבחן וקיבלתי עליה 5 נקודות מתוך 20. ואין לי מושגגגג
program targil; var i,a,b:integer; mul,sum:integer; begin sum:=0; mul:=1; writeln ('insert number '); readln (a); writeln ('insert another number'); readln (b); if a>b then begin for i:=a to b do mul:=mul*i end; else begin for i:=b to a do sum:=sum i; end; end.