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