/* This is the first test program */

procedure myproc is 
	vara, varb : integer;

begin

	vara := 5010;			/* vara gets 5010 */
	vara := 5;				/* vara gets 5 */
	varb := 3 * vara;		/* varb gets 5*vara == 15 */
	if 5>5 then
		varb := 2;
		writeln('this sucks');
	end if;

end;