• (#13) PROGRAM TEST. { Incorrect Program heading separator, the '.' should be a ';' }
• (#14) PROGRAM (input, output): { Incorrect Program heading, no program name identifier specified for the program and the ':' should be a ';' }
• (#15) PROGRAM 1test (input, output); { Incorrect Program heading, program name identifier "1test" is an invalid Pascal identifier }
• (#16) PROGRAM-One (output); { Incorrect Program heading, invalid reserved word "PROGRAM-One" and no program name identifier specified for the program }

• (#17) City = 'Denver';
• (#18) Year = 2004;
• (#19) School = 'Regis University';
• (#20) Grade = 14; { Sophomore in undergraduate school }

    Expression    Value
    __________    _____

    10/5        2.000
    2.0+7*(-1)-5.0000000000000000E+0000

• (#14);
• (a) writeln('The value of X is ', X:4:1);
• (b) writeln('The sum of X and Y is ', X + Y:4:1);
• (c)

         writeln('X = ', X:8:1);

         writeln('Y = ', Y:8:1);

         writeln('        -----');

         writeln('Total = ', X + Y);

• (#28) It appears that this should overflow, however on many systems it doesn't because maxint is set to a value less than 2^(word size) of the computer architecture

• (#15)

   18   19     M     

• (#18)

    9    Error due to attempt to read a character as a real!!!

• (#3)

PROGRAM ExerciseThree (output) { ; (Required) }

CONST
  Name = 'Jim Jones' { ; (Required) }
  Age = 18 { ; (Required) }

VAR
  Score : integer { ; (Required) }

BEGIN
  Score := 93 { ; (Required) }
  writeln ('Name':13, Name:15) { ; (Required) }
  writeln ('Age':12, Age:16) { ; (Required) }
  writeln ('Score':14, Score:14) { ; (Optional) }
END.

• (#4)

PROGRAM ExerciseFour (output);

CONST
  Name := 'Jim Jones'; { ':=' should be equality symbol '=' for constant defn }
  Age := 18; { ':=' should be equality symbol '=' for constant defn }

VAR
  Score : integer;

BEGIN
  Score = 93; { '=' should be assignment operator ':=' for assignment statement }
  writeln (Name:10, Age:10, Score':10) 
END.

• (#5)

PROGRRAM ExercseFiv (output);  { PROGRRAM should be the reserved word "PROGRAM"}

VAR
  X, Y : reals; { reals should be the reserved word "real"}
  Nam : chr;    { chr should be the reserved word "char" }
  Scor : interger; { interger should be the reserved word "integer" }

BEGIN
   X := 3.0;
   Y := X * 4.2;
   Nam := 'S';
   Scor := X + Y;
   writeln (X:4:2, Y:4:2, Nam:3, Scor:4)
END.