PROGRAM more_integer_demos;

VAR x,y      : INTEGER;
    count    : INTEGER;

BEGIN
  x := 12;
  y := 13;
  count := x + y;
  WRITE('The value of x is');
  WRITELN(x:4);
  WRITE('The value of y is');
  WRITELN(y:5);
  WRITE('And count is now ');
  WRITE(count:6);
  WRITELN;
END.