let
    var n : Integer;
    var c : Char
in

	begin
		c := '&';
		n := n + 1
	end