{**********************************************************************}
{ Getting current video mode						}
{**********************************************************************}

procedure print_mode;
var
i : integer;
begin		    { Print current video mode	}
    i := get_mode;
    writeln('Current video mode is ', i);
end;