PL0-GNU-M2/Tests/ttt.pl0

(*$C+ *)
VAR a,b,c: IMTEGER;

BEGIN
  ?a;
  ?b;
  !a*b
END.