/* I/O Semantics test */

procedure myproc is 
	vara : integer;
begin

	if(vara = 50) then
		if(vara = 51) then
			if(vara = 52) then
				writeln('in if');
			end if;
		end if;
	elsif(vara = 52) then
		writeln('in else');
	end if;

/*
	vara := 50;
	if(vara > 49) then
		vara := 1;
	elsif(vara > 52) then
		vara := 2;
	elsif(vara > 54) then
		vara := 4;
	else
		vara := 2;
	end if;

	if(vara > 49) then
		if(var = 50) then
			write('here');
		end if;
	end if;

	writeln(vara);
*/
	writeln('endofprog');

end;