/* This is the third test program */

procedure myproc is 
	vara : integer;
begin

	vara := 50;
	if(vara > 49) then
		vara := 1;
		vara := 1;
		vara := 1;
	elsif(vara > 52) then
		vara := 2;
		vara := 2;
		vara := 2;
	elsif(vara > 53) then
		vara := 3;
		vara := 3;
		vara := 3;
	else
		vara := 4;
		vara := 4;
		vara := 4;
	end if;

	writeln(vara);


end;