1. אתה צריך לכתוב
Randomize; a:= random(9) + 1;
|
למה 9 ועוד 1? כי ההגרלה היא בין 0 למספר שבסוגריים.
אני מקווה שאני לא טועה בסינטקס ובאמת כותבים את זה ככה, הרבה זמן לא תיכנתתי בפסקל.
לגבי השאלה השניה - במקום write אתה צריך לכתוב writeln
-----------------
בברכה,
e-do