(* simple.6.pasc *)
(* 
 * The simplest testing program. Just perform
 * 1. simple variables assignment
 * 2. expression with constant
 * 3. complex read/write function  
 *)

PROGRAM Simple6 IS
CONSTANT
	ten = 10;
	five= 5;
	nl  = '\n';
VAR
	i,j,k: integer;
	expr : integer;
	neg  : integer;
	less : integer;
	chi, chj: char;
	ending : string;
        logic : integer; 
BEGIN
	chi := 'I';
	chj := 'J';
	ending := 'END...';
	write('Give me two numbers ', chi, ' and ', chj, ':');
	read(i, j);
	k := i*j*ten;
	expr := k*2 div ten + ten*i + five*j*(five+five);
        less := k*2 div ten + ten*i + five*j*(five+five);
	less := less - 1;
	neg  := -10 - expr;
        logic := (less <= less);

	write('10*', i, '*', j, ' = ', k, nl);
	write('neg is ', neg, nl);
	write('Expr is ', expr, 'and 1 less is ', expr-1, nl, ending, nl);
        write('Logic ', logic); 
END.

(*
 * INPUT:
 *	Give me two numbers I and J: 5 8
 *
 * OUTPUT:
 *	10*5*8 = 400
 *	neg is -540
 *	Expr is 530 and 1 less is 529
 *	END...
 *
 *)