PROGRAM main
  BEGIN
    VAR %% can be empty or completely missing
      x : INTEGER;
      y : FLOAT;
      z : FLOAT;
    ENDVAR
    x := 19;
    x := x mod 5;
    WRITE(x);
    WRITELN();
      
  END