/* Test for while/for loops */

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

/*	while(vara > 3) loop
		writeln(vara);
	end loop;
*/

	while(vara = 1) loop
		for vara in 5..1 loop
			writeln(vara);
		end loop;
	end loop;


	write('END');
end;