PROGRAM integer_variable_demo;

VAR count     : INTEGER;
    x,y       : INTEGER;

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