% sample5.t
var x,y : int
x := 5
put "x is ",x
put "y is "..           % .. means no line feed 
y := (x+2) * 4		% 28 is assigned to y
y := y mod x		% y is reassigned to the remainder of 
put y			%           dividing 28 by 5
y := y - x		% y was 3 and we subtract 5 from it
put "y is ", y
x := 5 div (y+4)	% 2 goes into 5 twice
put "x is ",x
put "2 times x is ",2*x