PROGRAM main
  BEGIN
    VAR %% can be empty or completely missing
      x : INTEGER;
      y : FLOAT;
      z : INTEGER;
    ENDVAR
    x := 19;
    y := 31.0;
    z := x / 0;
    WRITE(z);
    WRITELN();
    x := x - 19;
    z := 37;
    z := z / x;
    WRITE(z);
    WRITELN();
    
      
  END