/* Test for while loop */

procedure myproc is 
	vara : integer;
	varb : integer;
	varc : integer;
begin

	if(vara > 49) then
		writeln('TESTING');
	elsif(vara > 52) then
		writeln('vara is ', vara);
	else
		write(vara, varb, varc);
	end if;

	read(vara, varb, varc);
	readln(varb);
	read(vara);
	readln(varc, varb, vara);

end;