(* a sample program #3 *)
MODULES sample3;
  FROM InOut IMPORT ReadInt, WriteInt, WriteLn, WriteString;
  FROM RealIO IMPORT ReadReal, WriteReal;
  VAR i, j: INTEGER;
      x, y: REAL;
      ok: BOOLEAN;
BEGIN PROGRAM
  ReadInt(i);                           (* get i *)
  ReadReal(x, ok);                      (* get x *)
  y := FLOAT(9 + i * 8 DIV 2);          (* evaluate i *)
  j := TRUNC(9. + FLOAT(i) * 8. / 9.);  (* evaluate j *)
  WriteString( 'Result is ' );
  WriteReal( y, 1, 3);                  (* print y *)
  WriteLn;
  WriteInt( j, i );                     (* print j *)
  WriteLn
END sample3.