PROGRAM main
  BEGIN
    VAR %% can be empty or completely missing
      x : INTEGER;
      y : FLOAT;
      z : INTEGER;
    ENDVAR
    x := 19;
    y := 31.0;
    z := (x * y) mod 61;
    WRITE(z);
    WRITELN();
    x := x - 19;
    x <-> y;
    WRITE(x);
    WRITESP();
    WRITE(y);
    WRITELN();
      
  END